home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume89 / unix / rcs.06 < prev    next >
Internet Message Format  |  1989-11-19  |  96KB
  1. Path: xanth!ames!apple!sun-barr!newstop!sun!swap!page
  2. From: page%swap@Sun.COM (Bob Page)
  3. Newsgroups: comp.sources.amiga
  4. Subject: v89i221:  rcs - revision control system, Part06/14
  5. Message-ID: <128097@sun.Eng.Sun.COM>
  6. Date: 19 Nov 89 09:24:52 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 4084
  9. Approved: page@sun.com
  10.  
  11. Submitted-by: rsbx@cbmvax.commodore.com (Raymond S. Brand)
  12. Posting-number: Volume 89, Issue 221
  13. Archive-name: unix/rcs.06
  14.  
  15. # This is a shell archive.
  16. # Remove anything above and including the cut line.
  17. # Then run the rest of the file through 'sh'.
  18. # Unpacked files will be owned by you and have default permissions.
  19. #----cut here-----cut here-----cut here-----cut here----#
  20. #!/bin/sh
  21. # shar: SHell ARchive
  22. # Run the following text through 'sh' to create:
  23. #    doc/rcs.1l
  24. #    doc/rcsclean.1l
  25. #    doc/rcsdiff.1l
  26. #    doc/rcsfile.5l
  27. #    doc/rcsfreeze.1l
  28. #    doc/rcsintro.1l
  29. #    doc/rcsmerge.1l
  30. #    doc/rlog.1l
  31. #    ked/ked.c,v
  32. #    rcs/readme
  33. #    rcs/rcs.rcsfiles/maketime.c,v
  34. # This is archive 6 of a 14-part kit.
  35. # This archive created: Sun Nov 19 01:12:07 1989
  36. if `test ! -d doc`
  37. then
  38.   mkdir doc
  39.   echo "mkdir doc"
  40. fi
  41. echo "extracting doc/rcs.1l"
  42. sed 's/^X//' << \SHAR_EOF > doc/rcs.1l
  43. X.TH RCS 1L "" "Purdue University"
  44. X.SH NAME
  45. Xrcs \- change RCS file attributes
  46. X.SH SYNOPSIS
  47. X.B rcs
  48. X[ options ]
  49. Xfile ... 
  50. X.SH DESCRIPTION
  51. X.I Rcs
  52. Xcreates new RCS files or changes attributes of existing ones.
  53. XAn RCS file contains multiple revisions of text,
  54. Xan access list, a change log, 
  55. Xdescriptive text,
  56. Xand some control attributes.
  57. XFor \fIrcs\fR to work, the caller's login name must be on the access list,
  58. Xexcept if the access list is empty, the caller is the owner of the file
  59. Xor the superuser, or
  60. Xthe \fB\-i\fR option is present. 
  61. X.PP
  62. XFiles ending in `,v' are RCS files, all others are working files. If
  63. Xa working file is given, \fIrcs\fR tries to find the corresponding
  64. XRCS file first in directory ./RCS and then in the current directory,
  65. Xas explained in
  66. X.IR co (1L).
  67. X.TP 11
  68. X.B \-i
  69. Xcreates and initializes a new RCS file, but does not deposit any revision.
  70. XIf the RCS file has no path prefix, \fIrcs\fR tries to place it
  71. Xfirst into the subdirectory ./RCS, and then into the current directory.
  72. XIf the RCS file
  73. Xalready exists, an error message is printed.
  74. X.TP
  75. X.BI \-a "logins"
  76. Xappends the login names appearing in the comma-separated list \fIlogins\fR
  77. Xto the access list of the RCS file.
  78. X.TP
  79. X.BI \-A "oldfile"
  80. Xappends the access list of \fIoldfile\fR to the access list of the RCS file. 
  81. X.TP
  82. X.BR \-e [\fIlogins\fR]
  83. Xerases the login names appearing in the comma-separated list \fIlogins\fR
  84. Xfrom the access list of the RCS file.
  85. XIf \fIlogins\fR is omitted, the entire access list is erased.
  86. X.TP
  87. X.BR \-b [\fIrev\fR]
  88. Xsets the default branch to \fIrev\fR. If \fIrev\fR is omitted, the default
  89. Xbranch is reset to the (dynamically) highest branch on the trunk.
  90. X.TP
  91. X.BI \-c "string"
  92. Xsets the comment leader to \fIstring\fR. The comment leader
  93. Xis printed before every log message line generated by the keyword 
  94. X$\&Log$  during checkout (see
  95. X.IR co (1L)).
  96. XThis is useful for programming 
  97. Xlanguages without multi-line comments. During \fBrcs -i\fR or initial 
  98. X\fBci\fR, the comment leader is guessed from the suffix of the working file. 
  99. X.TP
  100. X.BR \-l [\fIrev\fR]
  101. Xlocks the revision with number \fIrev\fR.
  102. XIf a branch is given, the latest revision on that branch is locked.
  103. XIf \fIrev\fR is omitted, the latest revision on the default branch is locked.
  104. XLocking prevents overlapping changes.
  105. XA lock is removed with \fBci\fR or \fBrcs -u\fR (see below).
  106. X.TP
  107. X.BR \-u [\fIrev\fR]
  108. Xunlocks the revision with number \fIrev\fR.
  109. XIf a branch is given, the latest revision on that branch is unlocked.
  110. XIf \fIrev\fR is omitted, the latest lock held by the caller is removed.
  111. XNormally, only the locker of a revision may unlock it.
  112. XSomebody else unlocking a revision breaks the lock. 
  113. XThis causes a mail message to be sent to the original locker.
  114. XThe message contains a commentary solicited from the breaker.
  115. XThe commentary is terminated with a line containing a single `.' or
  116. Xcontrol-D.
  117. X.TP
  118. X.B \-L
  119. Xsets locking to \fIstrict\fR. Strict locking means that the owner
  120. Xof an RCS file is not exempt from locking for checkin.
  121. XThis option should be used for files that are shared.
  122. X.TP
  123. X.B \-U
  124. Xsets locking to non-strict. Non-strict locking means that the owner of
  125. Xa file need not lock a revision for checkin. 
  126. XThis option should NOT be used for files that are shared.
  127. XThe default (\fB\-L\fR or \fB\-U\fR) is determined by your system administrator.
  128. X.TP
  129. X.B \-n\fIname\fR[:\fIrev\fR]
  130. Xassociates the symbolic name \fIname\fR with the branch or
  131. Xrevision \fIrev\fR. 
  132. X\fIRcs\fR prints an error message if \fIname\fR is already associated with
  133. Xanother number.
  134. XIf \fIrev\fR is omitted, the symbolic name is deleted.
  135. X.TP
  136. X.B \-N\fIname\fR[:\fIrev\fR]
  137. Xsame as \fB\-n\fR, except that it overrides a previous assignment of 
  138. X\fIname\fR.
  139. X.TP
  140. X.BI \-o "range"
  141. Xdeletes ("outdates") the revisions given by \fIrange\fR.
  142. XA range consisting of a single revision number means that revision.
  143. XA range consisting of a branch number means the latest revision on that
  144. Xbranch.
  145. XA range of the form \fIrev1-rev2\fR means 
  146. Xrevisions \fIrev1\fR to \fIrev2\fR on the same branch, 
  147. X\fI-rev\fR means from the beginning of the branch containing
  148. X\fIrev\fR up to and including \fIrev\fR, and \fIrev-\fR means
  149. Xfrom revision \fIrev\fR to the end of the branch containing \fIrev\fR.
  150. XNone of the outdated revisions may have branches or locks.
  151. X.TP
  152. X.B \-q
  153. Xquiet mode; diagnostics are not printed.
  154. X.TP
  155. X.B \-s\fIstate\fR[:\fIrev\fR]
  156. Xsets the state attribute of the revision \fIrev\fR to \fIstate\fR. 
  157. XIf \fIrev\fR is a branch number, the latest revision on that branch is
  158. Xassumed.
  159. XIf \fIrev\fR is omitted, the latest revision on the default branch is assumed.
  160. XAny identifier is acceptable for \fIstate\fR.
  161. XA useful set of states
  162. Xis \fIExp\fR (for experimental), \fIStab\fR (for stable), and \fIRel\fR (for
  163. Xreleased).
  164. XBy default,
  165. X.IR ci (1L)
  166. Xsets the state of a revision to \fIExp\fR.
  167. X.TP
  168. X.BR \-t [\fItxtfile\fR]
  169. Xwrites descriptive text into the RCS file (deletes the existing text).
  170. XIf \fItxtfile\fR is omitted, 
  171. X\fIrcs\fR prompts the user for text supplied from the standard input,
  172. Xterminated with a line containing a single `.' or control-D.
  173. XOtherwise, the descriptive text is copied from the file \fItxtfile\fR.
  174. XIf the \fB\-i\fR option is present, descriptive text is requested
  175. Xeven if \fB\-t\fR is not given.
  176. XThe prompt is suppressed if the standard input is not a terminal.
  177. X.SH DIAGNOSTICS
  178. XThe RCS file name and the revisions outdated are written to
  179. Xthe diagnostic output.
  180. XThe exit status always refers to the last RCS file operated upon,
  181. Xand is 0 if the operation was successful, 1 otherwise.
  182. X.SH FILES
  183. XThe caller of the command
  184. Xmust have read/write permission for the directory containing
  185. Xthe RCS file and read permission for the RCS file itself.
  186. X.I Rcs
  187. Xcreates a semaphore file in the same directory as the RCS
  188. Xfile to prevent simultaneous update.
  189. XFor changes, \fIrcs\fR always creates a new file. On successful completion,
  190. X\fIrcs\fR deletes the old one and renames the new one.
  191. XThis strategy makes links to RCS files useless.
  192. X.SH IDENTIFICATION
  193. X.de VL
  194. X\\$2
  195. X..
  196. XAuthor: Walter F. Tichy,
  197. XPurdue University, West Lafayette, IN, 47907.
  198. X.sp 0
  199. XRevision Number:
  200. X.VL $Revision: 1.3 $
  201. X; Release Date:
  202. X.VL $Date: 89/05/02 11:14:37 $
  203. X\&.
  204. X.sp 0
  205. XCopyright \(co 1982, 1988, 1989 by Walter F. Tichy.
  206. X.SH SEE ALSO
  207. Xco(1L), ci(1L), ident(1L), rcsdiff(1L), rcsintro(1L), rcsmerge(1L), rlog(1L),
  208. Xrcsfile(5L)
  209. X.sp 0
  210. XWalter F. Tichy, "Design, Implementation, and Evaluation of a Revision Control
  211. XSystem," in \fIProceedings of the 6th International Conference on Software
  212. XEngineering\fR, IEEE, Tokyo, Sept. 1982.
  213. SHAR_EOF
  214. echo "extracting doc/rcsclean.1l"
  215. sed 's/^X//' << \SHAR_EOF > doc/rcsclean.1l
  216. X.TH RCSCLEAN 1L "" "Purdue University"
  217. X.SH NAME
  218. Xrcsclean \- clean up working files
  219. X.SH SYNOPSIS
  220. X\fBrcsclean\fR [ \fB-r\fIrev\fR ] [ \fB-q\fIrev\fR ] file...
  221. X.SH DESCRIPTION
  222. X.I Rcsclean
  223. Xremoves working files that were checked out and never modified.
  224. XFor each file given, \fIrcsclean\fR
  225. Xcompares the working file and a revision in the corresponding
  226. XRCS file. If it finds no difference, it removes the working file, and,
  227. Xif the revision was locked by the caller, unlocks the revision.
  228. X.PP
  229. XA file name ending in ',v' is an RCS file name, otherwise a
  230. Xworking file name. \fIRcsclean\fR derives the working file name from the RCS
  231. Xfile name and vice versa, as explained in
  232. X.IR co (1L).
  233. XPairs consisting
  234. Xof both an RCS and a working file name may also be specified.
  235. X.PP
  236. X\fIRev\fR specifies with which revision the working file is compared.
  237. XIf \fIrev\fR is omitted, \fIrcsclean\fR compares the working file with
  238. Xthe latest revision
  239. Xon the default branch (normally the highest branch on the trunk).
  240. XThe option \fB-q\fR suppresses diagnostics.
  241. X.PP
  242. X\fIRcsclean\fR is useful for "clean" targets in Makefiles.
  243. XNote that
  244. X.IR rcsdiff (1L)
  245. Xprints out the differences.
  246. XAlso,
  247. X.IR ci (1L)
  248. Xnormally asks whether to check in a file
  249. Xif it was not changed.
  250. X.SH EXAMPLES
  251. X.nf
  252. XThe command
  253. X
  254. X    rcsclean *.c *.h
  255. X
  256. X.fi
  257. Xremoves all working files ending in ".c" or ".h" that were not changed
  258. Xsince their checkout.
  259. X.SH DIAGNOSTICS
  260. XThe exit status is 0 if there were no differences
  261. Xduring the last comparison or if the last working file did not exist,
  262. X1 if there were differences, and 2 if there were errors.
  263. X.SH IDENTIFICATION
  264. X.de VL
  265. X\\$2
  266. X..
  267. XAuthor: Walter F. Tichy,
  268. XPurdue University, West Lafayette, IN, 47907.
  269. X.sp 0
  270. XRevision Number:
  271. X.VL $Revision: 1.2 $
  272. X; Release Date:
  273. X.VL $Date: 89/05/02 11:15:26 $
  274. X\&.
  275. X.sp 0
  276. XCopyright \(co 1982, 1988, 1989 by Walter F. Tichy.
  277. X.SH SEE ALSO
  278. Xco(1L), ci(1L), ident(1L), rcs(1L), rcsdiff(1L), rcsintro(1L), rcsmerge(1L),
  279. Xrlog(1L), rcsfile(5L).
  280. SHAR_EOF
  281. echo "extracting doc/rcsdiff.1l"
  282. sed 's/^X//' << \SHAR_EOF > doc/rcsdiff.1l
  283. X.TH RCSDIFF 1L "" "Purdue University"
  284. X.SH NAME
  285. Xrcsdiff \- compare RCS revisions
  286. X.SH SYNOPSIS
  287. X\fBrcsdiff\fR [ \fB\-biwt\fR ] [ \fB\-cefhn\fR ] [ \fB\-q\fR ] [ \fB\-r\fIrev1\fR ] [ \fB\-r\fIrev2\fR ] file ...
  288. X.SH DESCRIPTION
  289. X.I Rcsdiff
  290. Xruns
  291. X.IR diff (1)
  292. Xto compare two revisions of each RCS file given.
  293. XA file name ending in ',v' is an RCS file name, otherwise a
  294. Xworking file name. \fIRcsdiff\fR derives the working file name from the RCS
  295. Xfile name and vice versa, as explained in
  296. X.IR co (1L).
  297. XPairs consisting
  298. Xof both an RCS and a working file name may also be specified.
  299. X.PP
  300. XThe options \fB\-b\fR, \fB\-i\fR, \fB\-w\fR, \fB\-t\fR,
  301. X\fB\-c\fR, \fB\-e\fR, \fB\-f\fR, and \fB\-h\fR,
  302. Xhave the same effect as described in
  303. X.IR diff (1);
  304. Xoption
  305. X\fB\-n\fR generates an edit script of the format used by RCS.
  306. XThe option \fB\-q\fR suppresses diagnostic output.
  307. X.PP
  308. XIf both \fIrev1\fR and \fIrev2\fR
  309. Xare omitted, \fIrcsdiff\fR compares the latest revision on the
  310. Xdefault branch (normally the highest branch on the trunk)
  311. Xwith the contents of the corresponding working file. This is useful
  312. Xfor determining what you changed since the last checkin.
  313. X.PP
  314. XIf \fIrev1\fR is given, but \fIrev2\fR is omitted,
  315. X\fIrcsdiff\fR compares revision \fIrev1\fR of the RCS file with
  316. Xthe contents of the corresponding working file.
  317. X.PP
  318. XIf both \fIrev1\fR and \fIrev2\fR are given,
  319. X\fIrcsdiff\fR compares revisions \fIrev1\fR and \fIrev2\fR of the RCS file.
  320. X.PP
  321. XBoth \fIrev1\fR and \fIrev2\fR may be given numerically or symbolically,
  322. Xand may actually be attached to any of the options.
  323. X.SH EXAMPLES
  324. X.nf
  325. XThe command
  326. X
  327. X.B "        rcsdiff  f.c
  328. X
  329. X.fi
  330. Xruns \fIdiff\fR on the latest revision on the default branch of RCS file f.c,v
  331. Xand the contents of working file f.c.
  332. X.SH DIAGNOSTICS
  333. XThe exit status is 0 if there were no differences during the last comparison,
  334. X1 if there were differences, and 2 if there were errors.
  335. X.SH IDENTIFICATION
  336. X.de VL
  337. X\\$2
  338. X..
  339. XAuthor: Walter F. Tichy,
  340. XPurdue University, West Lafayette, IN, 47907.
  341. X.sp 0
  342. XRevision Number:
  343. X.VL $Revision: 1.3 $
  344. X; Release Date:
  345. X.VL $Date: 89/05/02 11:16:01 $
  346. X\&.
  347. X.sp 0
  348. XCopyright \(co 1982, 1988, 1989 by Walter F. Tichy.
  349. X.SH SEE ALSO
  350. Xci(1L), co(1L), diff(1), ident(1L), rcs(1L), rcsintro(1L), rcsmerge(1L), rlog(1L)
  351. X.br
  352. XWalter F. Tichy, "Design, Implementation, and Evaluation of a Revision Control
  353. XSystem," in \fIProceedings of the 6th International Conference on Software
  354. XEngineering\fR, IEEE, Tokyo, Sept. 1982.
  355. SHAR_EOF
  356. echo "extracting doc/rcsfile.5l"
  357. sed 's/^X//' << \SHAR_EOF > doc/rcsfile.5l
  358. X.TH RCSFILE 5L "" "Purdue University"
  359. X.SH NAME
  360. Xrcsfile \- format of RCS file
  361. X.SH DESCRIPTION
  362. XAn RCS file is an ASCII file. Its contents are described by the grammar
  363. Xbelow. The text is free format, i.e., spaces, tabs and new lines have
  364. Xno significance except in strings. Strings are enclosed by `@'.
  365. XIf a string contains a `@', it must be doubled.
  366. X.PP
  367. XThe meta syntax uses the following conventions: `|' (bar) separates
  368. Xalternatives; `{' and `}' enclose optional phrases; `{' and `}*' enclose
  369. Xphrases that may be repeated zero or more times;
  370. X`{' and '}+' enclose phrases that must appear at least once and may be
  371. Xrepeated;
  372. X`<' and `>' enclose nonterminals.
  373. X.PP
  374. X.ta 1.5i 2.0i 3i
  375. X.fc ~
  376. X.nf
  377. X
  378. X 
  379. X<rcstext>  ~~::=~~<admin> {<delta>}* <desc> {<deltatext>}*
  380. X           
  381. X<admin>    ~~::=~~\fBhead\fR     ~~{<num>};
  382. X           ~~   ~~\fBbranch\fR   ~~{<num>};
  383. X           ~~   ~~\fBaccess\fR   ~~{<id>}*;
  384. X           ~~   ~~\fBsymbols\fR  ~~{<id> : <num>}*;  
  385. X           ~~   ~~\fBlocks\fR    ~~{<id> : <num>}*;
  386. X           ~~   ~~\fBcomment\fR  ~~{<string>};
  387. X           
  388. X<delta>    ~~::=~~<num>
  389. X           ~~   ~~\fBdate\fR     ~~<num>;
  390. X           ~~   ~~\fBauthor\fR   ~~<id>;
  391. X           ~~   ~~\fBstate\fR    ~~{<id>};
  392. X           ~~   ~~\fBbranches\fR ~~{<num>}*;
  393. X           ~~   ~~\fBnext\fR     ~~{<num>};
  394. X           
  395. X<desc>     ~~::=~~\fBdesc\fR     ~~<string>
  396. X
  397. X<deltatext>~~::=~~<num>   
  398. X           ~~   ~~\fBlog\fR      ~~<string>
  399. X           ~~   ~~\fBtext\fR     ~~<string>
  400. X
  401. X
  402. X<num>      ~~::=~~{<digit>{.}}+
  403. X             
  404. X<digit>    ~~::=~~0 | 1 | ... | 9
  405. X             
  406. X<id>       ~~::=~~<letter>{<idchar>}*
  407. X
  408. X<letter>   ~~::=~~A | B | ... | Z | a | b | ... | z
  409. X
  410. X<idchar>   ~~::=~~Any printing ASCII character except space,
  411. X           ~~   ~~tab, carriage return, new line, and <special>.
  412. X
  413. X<special>  ~~::=~~; | : | , | @
  414. X
  415. X<string>   ~~::=~~@{any ASCII character, with `@' doubled}*@
  416. X
  417. X.fi
  418. X.PP
  419. XIdentifiers are case sensitive. Keywords are in lower case only.
  420. XThe sets of keywords and identifiers may overlap.
  421. X.PP
  422. XThe <delta> nodes form a tree. All nodes whose numbers
  423. Xconsist of a single pair
  424. X(e.g., 2.3, 2.1, 1.3, etc.)
  425. Xare on the "trunk", and are linked through the \fBnext\fR
  426. Xfield in order of decreasing numbers. The \fBhead\fR field in the
  427. X<admin> node points to the head of that sequence (i.e., contains
  428. Xthe highest pair). 
  429. XThe \fBbranch\fR node in the admin node indicates the default
  430. Xbranch (or revision) for most RCS operations. If empty, the default
  431. Xbranch is the highest branch on the trunk.
  432. X.PP
  433. XAll <delta> nodes whose numbers consist of 2n fields (n\(>=2)
  434. X(e.g., 3.1.1.1, 2.1.2.2, etc.)
  435. Xare linked as follows. All nodes whose first (2n)-1 number fields are identical
  436. Xare linked through the \fBnext\fR field in order of increasing numbers.
  437. XFor each such sequence, 
  438. Xthe <delta> node whose number is identical to the first 
  439. X2(n-1) number fields of the deltas on that sequence is called the branchpoint.
  440. XThe \fBbranches\fR field of a node contains a list of the
  441. Xnumbers of the first nodes of all sequences for which it is a branchpoint.
  442. XThis list is ordered in increasing numbers.
  443. X.sp 1
  444. X.ne 38
  445. XExample:
  446. X.eo
  447. X.nf
  448. X.vs 12pts
  449. X.cs 1 20
  450. X.if t .in +0.5i
  451. X                           Head
  452. X                             |
  453. X                             |
  454. X                             v
  455. X                         ---------
  456. X   / \          / \      |       |      / \           / \     
  457. X  /   \        /   \     |  2.1  |     /   \         /   \
  458. X /     \      /     \    |       |    /     \      /       \
  459. X/1.2.1.3\    /1.3.1.1\   |       |   /1.2.2.2\   /1.2.2.1.1.1\
  460. X---------    ---------   ---------   ---------   -------------
  461. X    ^            ^           |           ^             ^
  462. X    |            |           |           |             |
  463. X    |            |           v           |             |
  464. X   / \           |       ---------      / \            |
  465. X  /   \          |       \  1.3  /     /   \           |
  466. X /     \         ---------\     /     /     \-----------
  467. X/1.2.1.1\                  \   /     /1.2.2.1\           
  468. X---------                   \ /      --------- 
  469. X    ^                        |           ^     
  470. X    |                        |           |     
  471. X    |                        v           |     
  472. X    |                    ---------       |     
  473. X    |                    \  1.2  /       |     
  474. X    ----------------------\     /---------     
  475. X                           \   /               
  476. X                            \ /                
  477. X                             |                 
  478. X                             |                 
  479. X                             v                 
  480. X                         ---------             
  481. X                         \  1.1  /             
  482. X                          \     /              
  483. X                           \   /               
  484. X                            \ /                
  485. X                                               
  486. X
  487. X.if t .in -0.5i
  488. X.cs 1
  489. X.ec
  490. X.ce
  491. XFig. 1: A revision tree
  492. X.fi
  493. X.PP
  494. X.SH IDENTIFICATION
  495. X.de VL
  496. X\\$2
  497. X..
  498. XAuthor: Walter F. Tichy,
  499. XPurdue University, West Lafayette, IN, 47907.
  500. X.sp 0
  501. XRevision Number:
  502. X.VL $Revision: 1.2 $
  503. X; Release Date:
  504. X.VL $Date: 89/05/02 11:16:56 $
  505. X\&.
  506. X.sp 0
  507. XCopyright \(co 1982, 1988, 1989 by Walter F. Tichy.
  508. X.SH SEE ALSO
  509. Xci(1L), co(1L), ident(1L), rcs(1L), rcsdiff(1L), rcsmerge(1L), rlog(1L),
  510. X.br
  511. XWalter F. Tichy, "Design, Implementation, and Evaluation of a Revision Control
  512. XSystem," in \fIProceedings of the 6th International Conference on Software
  513. XEngineering\fR, IEEE, Tokyo, Sept. 1982.
  514. SHAR_EOF
  515. echo "extracting doc/rcsfreeze.1l"
  516. sed 's/^X//' << \SHAR_EOF > doc/rcsfreeze.1l
  517. X.TH RCSFREEZE 1L "" "Purdue University"
  518. X.SH NAME
  519. Xrcsfreeze \- freeze a configuration of sources checked in under RCS
  520. X.SH SYNOPSIS
  521. X.B rcsfreeze
  522. X[symbolic revision name]
  523. X.SH DESCRIPTION
  524. XThe
  525. X.I rcsfreeze
  526. Xcommand has the purpose of assigning a symbolic revision
  527. Xnumber to a set of RCS files, which form a valid configuration.
  528. X.PP
  529. XThe idea is to run
  530. X.I rcsfreeze
  531. Xeach time a new version is checked
  532. Xin. A unique symbolic revision number (\c
  533. X.BI C_ number,
  534. Xwhere
  535. X.I number
  536. Xis increased each time rcsfreeze is run) is then assigned to the most
  537. Xrecent revision of each RCS file of the main trunk.
  538. X.PP
  539. XIf the command is invoked with an argument, then this
  540. Xargument is used as the symbolic name to freeze a configuration.
  541. XThe unique identifier is still generated
  542. Xand is listed in the log file but it will not appear as
  543. Xpart of the symbolic revision name in the actual RCS files.
  544. X.PP
  545. XA log message is requested from the user which is saved for future
  546. Xreferences.
  547. X.PP
  548. XThe shell script works only on all RCS files at one time.
  549. XIt is important that all changed files are checked in (there are
  550. Xno precautions against any error in this respect). Run
  551. X.IR rcsclean (1L)
  552. Xfirst and see whether any sources remain in the current directory.
  553. X.SH FILES
  554. X.TP 2.5i
  555. X[RCS/]rcsfreeze.version
  556. Xfor the version number
  557. X.TP
  558. X[RCS/]rscfreeze.log
  559. Xfor the log messages, most recent log message first.
  560. X.SH AUTHOR
  561. XStephan v. Bechtolsheim
  562. X.SH "SEE ALSO"
  563. Xrcs(1L), rlog(1L), rcsclean(1L)
  564. X.SH BUGS
  565. XThe program does not check whether there are any sources checked out
  566. Xand modified.
  567. SHAR_EOF
  568. echo "extracting doc/rcsintro.1l"
  569. sed 's/^X//' << \SHAR_EOF > doc/rcsintro.1l
  570. X.TH RCSINTRO 1L "May 11, 1983" "Purdue University"
  571. X.SH NAME
  572. Xrcsintro - introduction to RCS commands
  573. X.SH DESCRIPTION
  574. XThe Revision Control System (RCS) manages multiple revisions of text files.
  575. XRCS automates the storing, retrieval, logging, identification, and merging
  576. Xof revisions. RCS is useful for text that is revised frequently, for example
  577. Xprograms, documentation, graphics, papers, form letters, etc.
  578. X.PP
  579. XThe basic user interface is extremely simple. The novice only needs
  580. Xto learn two commands:
  581. X.IR ci (1L)
  582. Xand
  583. X.IR co (1L).
  584. X\fICi\fR, short for "check in", deposits the contents of a
  585. Xtext file into an archival file called an RCS file. An RCS file
  586. Xcontains all revisions of a particular text file.
  587. X\fICo\fR, short for "check out", retrieves revisions from an RCS file.
  588. X.PP
  589. X.B "Functions of RCS"
  590. X.PP
  591. X.IP \(bu
  592. XStorage and retrieval of multiple revisions of text. RCS saves all old
  593. Xrevisions in a space efficient way.
  594. XChanges no longer destroy the original, because the
  595. Xprevious revisions remain accessible. Revisions can be retrieved according to
  596. Xranges of revision numbers, symbolic names, dates, authors, and
  597. Xstates.
  598. X.IP \(bu
  599. XMaintenance of a complete history of changes. RCS logs all changes automatically.
  600. XBesides the text of each revision, RCS stores the author, the date and time of
  601. Xcheck-in, and a log message summarizing the change.
  602. XThe logging makes it easy to find out
  603. Xwhat happened to a module, without having to compare
  604. Xsource listings or having to track down colleagues.
  605. X.IP \(bu
  606. XResolution of access conflicts. When two or more programmers wish to
  607. Xmodify the same revision, RCS alerts the programmers and prevents one
  608. Xmodification from corrupting the other.
  609. X.IP \(bu
  610. XMaintenance of a tree of Revisions. RCS can maintain separate lines of development
  611. Xfor each module. It stores a tree structure that represents the
  612. Xancestral relationships among revisions.
  613. X.IP \(bu
  614. XMerging of revisions and resolution of conflicts.
  615. XTwo separate lines of development of a module can be coalesced by merging.
  616. XIf the revisions to be merged affect the same sections of code, RCS alerts the
  617. Xuser about the overlapping changes.
  618. X.IP \(bu
  619. XRelease and configuration control. Revisions can be assigned symbolic names
  620. Xand marked as released, stable, experimental, etc.
  621. XWith these facilities, configurations of modules can be
  622. Xdescribed simply and directly.
  623. X.IP \(bu
  624. XAutomatic identification of each revision with name, revision number,
  625. Xcreation time, author, etc.
  626. XThe identification is like a stamp that can be embedded at an appropriate place
  627. Xin the text of a revision.
  628. XThe identification makes it simple to determine which
  629. Xrevisions of which modules make up a given configuration.
  630. X.IP \(bu
  631. XMinimization of secondary storage. RCS needs little extra space for
  632. Xthe revisions (only the differences). If intermediate revisions are
  633. Xdeleted, the corresponding deltas are compressed accordingly.
  634. X.sp
  635. X.PP
  636. X.B "Getting Started with RCS"
  637. X.PP
  638. XSuppose you have a file f.c that you wish to put under control of RCS. 
  639. XInvoke the check-in command
  640. X.PP
  641. X.ti 1.5i
  642. X.B "ci  f.c 
  643. X.PP
  644. XThis command creates the RCS file f.c,v, stores f.c into it as revision 1.1, and
  645. Xdeletes f.c.  It also asks you for a description. The description
  646. Xshould be a synopsis of the contents of the file. All later check-in
  647. Xcommands will ask you for a log entry, which should summarize the
  648. Xchanges that you made.
  649. X.PP
  650. XFiles ending in ,v are called RCS files (`v' stands for `versions'),
  651. Xthe others are called working files.
  652. XTo get back the working file f.c in the previous example, use the check-out
  653. Xcommand
  654. X.PP
  655. X.ti 1.5i
  656. X.B "co  f.c
  657. X.PP
  658. XThis command extracts the latest revision from f.c,v and writes
  659. Xit into f.c. You can now edit f.c and check it back in by invoking
  660. X.PP
  661. X.ti 1.5i
  662. X.B "ci  f.c
  663. X.PP
  664. X\fICi\fR increments the revision number properly. 
  665. XIf \fIci\fR complains with the message
  666. X.PP
  667. X        ci error: no lock set by <your login>
  668. X.PP
  669. Xthen your system administrator has decided to create all RCS files
  670. Xwith the locking attribute set to `strict'. In this case, you should
  671. Xhave locked the revision during the previous check-out. Your last check-out
  672. Xshould have been
  673. X.PP
  674. X.ti 1.5i
  675. X.B "co  \-l  f.c
  676. X.PP
  677. XOf course, it is too late now to do the check-out with locking, because you
  678. Xprobably modified f.c already, and a second check-out would
  679. Xoverwrite your modifications. Instead, invoke
  680. X.PP
  681. X.ti 1.5i
  682. X.B "rcs  \-l  f.c
  683. X.PP
  684. XThis command will lock the latest revision for you, unless somebody
  685. Xelse got ahead of you already. In this case, you'll have to negotiate with 
  686. Xthat person.
  687. X.PP
  688. XLocking assures that you, and only you, can check in the next update, and
  689. Xavoids nasty problems if several people work on the same file.
  690. XEven if a revision is locked, it can still be checked out for
  691. Xreading, compiling, etc. All that locking
  692. Xprevents is a CHECK-IN by anybody but the locker.
  693. X.PP
  694. XIf your RCS file is private, i.e., if you are the only person who is going
  695. Xto deposit revisions into it, strict locking is not needed and you
  696. Xcan turn it off.
  697. XIf strict locking is turned off,
  698. Xthe owner of the RCS file need not have a lock for check-in; all others
  699. Xstill do. Turning strict locking off and on is done with the commands
  700. X.PP
  701. X.ti 1.5i
  702. X.BR "rcs  \-U  f.c" "     and     " "rcs  \-L  f.c"
  703. X.PP
  704. XIf you don't want to clutter your working directory with RCS files, create 
  705. Xa subdirectory called RCS in your working directory, and move all your RCS 
  706. Xfiles there. RCS commands will look first into that directory to find 
  707. Xneeded files. All the commands discussed above will still work, without any 
  708. Xmodification. 
  709. X(Actually, pairs of RCS and working files can be specified in 3 ways:
  710. X(a) both are given, (b) only the working file is given, (c) only the
  711. XRCS file is given. Both RCS and working files may have arbitrary path prefixes;
  712. XRCS commands pair them up intelligently).
  713. X.PP
  714. XTo avoid the deletion of the working file during check-in (in case you want to
  715. Xcontinue editing), invoke
  716. X.PP
  717. X.ti 1.5i
  718. X.BR "ci  \-l  f.c" "     or     " "ci  \-u  f.c"
  719. X.PP
  720. XThese commands check in f.c as usual, but perform an implicit
  721. Xcheck-out. The first form also locks the checked in revision, the second one
  722. Xdoesn't. Thus, these options save you one check-out operation.
  723. XThe first form is useful if locking is strict, the second one if not strict.
  724. XBoth update the identification markers in your working file (see below).
  725. X.PP
  726. XYou can give \fIci\fR the number you want assigned to a checked in
  727. Xrevision. Assume all your revisions were numbered 1.1, 1.2, 1.3, etc.,
  728. Xand you would like to start release 2.
  729. XThe command
  730. X.PP
  731. X.ti 1.5i
  732. X.BR "ci  \-r2  f.c" "     or     " "ci  \-r2.1  f.c"
  733. X.PP
  734. Xassigns the number 2.1 to the new revision.
  735. XFrom then on, \fIci\fR will number the subsequent revisions
  736. Xwith 2.2, 2.3, etc. The corresponding \fIco\fR commands
  737. X.PP
  738. X.ti 1.5i
  739. X.BR "co  \-r2  f.c" "     and     " "co  \-r2.1  f.c"
  740. X.PP
  741. Xretrieve the latest revision numbered 2.x and the revision 2.1,
  742. Xrespectively. \fICo\fR without a revision number selects
  743. Xthe latest revision on the "trunk", i.e., the highest
  744. Xrevision with a number consisting of 2 fields. Numbers with more than 2
  745. Xfields are needed for branches.
  746. XFor example, to start a branch at revision 1.3, invoke
  747. X.PP
  748. X.ti 1.5i
  749. X.B "ci  \-r1.3.1  f.c
  750. X.PP
  751. XThis command starts a branch numbered 1 at revision 1.3, and assigns
  752. Xthe number 1.3.1.1 to the new revision. For more information about
  753. Xbranches, see \fIrcsfile\fR(5L).
  754. X.sp
  755. X.PP
  756. X.B "Automatic Identification"
  757. X.PP
  758. XRCS can put special strings for identification into your source and object
  759. Xcode. To obtain such identification, place the marker
  760. X.PP
  761. X.ti 1.5i
  762. X$\&Header$
  763. X.PP
  764. Xinto your text, for instance inside a comment.
  765. XRCS will replace this marker with a string of the form
  766. X.PP
  767. X.ti 1.5i
  768. X$\&Header:  filename  revision_number  date  time  author  state $
  769. X.PP
  770. XWith such a marker on the first page of each module, you can
  771. Xalways see with which revision you are working.
  772. XRCS keeps the markers up to date automatically.
  773. XTo propagate the markers into your object code, simply put
  774. Xthem into literal character strings. In C, this is done as follows:
  775. X.PP
  776. X.ti 1.5i
  777. Xstatic char rcsid[] = "$\&Header$";
  778. X.PP
  779. XThe command \fIident\fR extracts such markers from any file, even object code
  780. Xand dumps.
  781. XThus, \fIident\fR lets you find out
  782. Xwhich revisions of which modules were used in a given program. 
  783. X.PP
  784. XYou may also find it useful to put the marker $\&Log$
  785. Xinto your text, inside a comment. This marker accumulates
  786. Xthe log messages that are requested during check-in.
  787. XThus, you can maintain the complete history of your file directly inside it.
  788. XThere are several additional identification markers; see \fIco\fR(1L) for
  789. Xdetails.
  790. X.SH IDENTIFICATION
  791. X.de VL
  792. X\\$2
  793. X..
  794. XAuthor: Walter F. Tichy,
  795. XPurdue University, West Lafayette, IN, 47907.
  796. X.br
  797. XRevision Number:
  798. X.VL $Revision: 1.2 $
  799. X; Release Date:
  800. X.VL $Date: 89/05/02 11:17:54 $
  801. X\&.
  802. X.br
  803. XCopyright \(co 1982, 1988, 1989 by Walter F. Tichy.
  804. X.SH SEE ALSO
  805. Xci(1L), co(1L), ident(1L), merge(1L), rcs(1L), rcsdiff(1L), rcsmerge(1L), rlog(1L),
  806. Xrcsfile(5L),
  807. X.br
  808. XWalter F. Tichy, "Design, Implementation, and Evaluation of a Revision Control
  809. XSystem," in \fIProceedings of the 6th International Conference on Software
  810. XEngineering\fR, IEEE, Tokyo, Sept. 1982.
  811. SHAR_EOF
  812. echo "extracting doc/rcsmerge.1l"
  813. sed 's/^X//' << \SHAR_EOF > doc/rcsmerge.1l
  814. X.TH RCSMERGE 1L "" "Purdue University"
  815. X.SH NAME
  816. Xrcsmerge \- merge RCS revisions
  817. X.SH SYNOPSIS
  818. X\fBrcsmerge\fR \fB\-r\fIrev1\fR [ \fB\-r\fIrev2\fR ] [ \fB\-p\fR ] file
  819. X.SH DESCRIPTION
  820. X.I Rcsmerge
  821. Xincorporates the changes between \fIrev1\fR and \fIrev2\fR of an
  822. XRCS file into the corresponding working file. If \fB\-p\fR is given, the result
  823. Xis printed on the standard output, otherwise the result overwrites the
  824. Xworking file.
  825. X.PP
  826. XA file name ending in ',v' is an RCS file name, otherwise a
  827. Xworking file name. \fIMerge\fR derives the working file name from the RCS
  828. Xfile name and vice versa, as explained in
  829. X.IR co (1L).
  830. XA pair consisting
  831. Xof both an RCS and a working file name may also be specified.
  832. X.PP
  833. X\fIRev1\fR may not be omitted. If \fIrev2\fR is omitted, the latest
  834. Xrevision on the default branch (normally the highest branch on the trunk)
  835. Xis assumed.
  836. XBoth \fIrev1\fR and \fIrev2\fR may be given numerically or symbolically.
  837. X.PP
  838. X\fIRcsmerge\fR prints a warning if there are overlaps, and delimits
  839. Xthe overlapping regions as explained in \fIco \-j\fR.
  840. XThe command is useful for incorporating changes into a checked-out revision.
  841. X.SH EXAMPLES
  842. XSuppose you have released revision 2.8 of f.c. Assume
  843. Xfurthermore that you just completed revision 3.4, when you receive
  844. Xupdates to release 2.8 from someone else.
  845. XTo combine the updates to 2.8 and your changes between 2.8 and 3.4,
  846. Xput the updates to 2.8 into file f.c and execute
  847. X.sp
  848. X.B "        rcsmerge  \-p  \-r2.8  \-r3.4  f.c  >f.merged.c
  849. X.sp
  850. XThen examine f.merged.c.
  851. XAlternatively, if you want to save the updates to 2.8 in the RCS file,
  852. Xcheck them in as revision 2.8.1.1 and execute \fIco \-j\fR:
  853. X.sp
  854. X.B "        ci  \-r2.8.1.1  f.c
  855. X.br
  856. X.B "        co  \-r3.4  \-j2.8:2.8.1.1  f.c
  857. X.sp
  858. XAs another example, the following command undoes the changes
  859. Xbetween revision 2.4 and 2.8 in your currently checked out revision
  860. Xin f.c.
  861. X.sp
  862. X.B "        rcsmerge  \-r2.8  \-r2.4  f.c
  863. X.sp
  864. XNote the order of the arguments, and that f.c will be
  865. Xoverwritten.
  866. X.SH IDENTIFICATION
  867. X.de VL
  868. X\\$2
  869. X..
  870. XAuthor: Walter F. Tichy,
  871. XPurdue University, West Lafayette, IN, 47907.
  872. X.sp 0
  873. XRevision Number:
  874. X.VL $Revision: 1.2 $
  875. X; Release Date:
  876. X.VL $Date: 89/05/02 11:18:34 $
  877. X\&.
  878. X.sp 0
  879. XCopyright \(co 1982, 1988, 1989 by Walter F. Tichy.
  880. X.SH SEE ALSO
  881. Xci(1L), co(1L), merge(1L), ident(1L), rcs(1L), rcsdiff(1L), rlog(1L), rcsfile(5L),
  882. X.br
  883. XWalter F. Tichy, "Design, Implementation, and Evaluation of a Revision Control
  884. XSystem," in \fIProceedings of the 6th International Conference on Software
  885. XEngineering\fR, IEEE, Tokyo, Sept. 1982.
  886. X.SH BUGS
  887. X\fIRcsmerge\fR does not work on
  888. Xfiles that contain lines with a single `.'.
  889. SHAR_EOF
  890. echo "extracting doc/rlog.1l"
  891. sed 's/^X//' << \SHAR_EOF > doc/rlog.1l
  892. X.TH RLOG 1L "" "Purdue University"
  893. X.SH NAME
  894. Xrlog \- print log messages and other information about RCS files
  895. X.SH SYNOPSIS
  896. X.B rlog
  897. X[ options ]
  898. Xfile ...
  899. X.SH DESCRIPTION
  900. X.I Rlog
  901. Xprints information about RCS files.
  902. XFiles ending in `,v' are RCS files, all others are working files. If
  903. Xa working file is given, \fIrlog\fR tries to find the corresponding
  904. XRCS file first in directory ./RCS and then in the current directory,
  905. Xas explained in
  906. X.IR co (1L).
  907. X.PP
  908. X\fIRlog\fR prints the following information for each
  909. XRCS file: RCS file name, working file name, head (i.e., the number
  910. Xof the latest revision on the trunk), default branch, access list, locks,
  911. Xsymbolic names, suffix, total number of revisions, 
  912. Xnumber of revisions selected for printing, and 
  913. Xdescriptive text. This is followed by entries for the selected revisions in
  914. Xreverse chronological order for each branch. For each revision,
  915. X\fIrlog\fR prints revision number, author, date/time, state, number of
  916. Xlines added/deleted (with respect to the previous revision),
  917. Xlocker of the revision (if any), and log message.
  918. XWithout options, \fIrlog\fR prints complete information.
  919. XThe options below restrict this output.
  920. X.TP 10
  921. X.B \-L
  922. Xignores RCS files that have no locks set; convenient in combination with
  923. X\fB\-R\fR, \fB\-h\fR, or \fB\-l\fR.
  924. X.TP 10
  925. X.B \-R
  926. Xonly prints the name of the RCS file; convenient for translating a
  927. Xworking file name into an RCS file name.
  928. X.TP 10
  929. X.B \-h
  930. Xprints only RCS file name, working file name, head, 
  931. Xdefault branch, access list, locks,
  932. Xsymbolic names, and suffix.
  933. X.TP 10
  934. X.B \-t
  935. Xprints the same as \fB\-h\fR, plus the descriptive text.
  936. X.TP 10
  937. X.B \-b
  938. Xprints information about the revisions on the default branch (normally
  939. Xthe highest branch on the trunk).
  940. X.TP 10
  941. X.BI \-d "dates"
  942. Xprints information about revisions with a checkin date/time in the ranges given by
  943. Xthe semicolon-separated list of \fIdates\fR.
  944. XA range of the form \fId1<d2\fR or \fId2>d1\fR
  945. Xselects the revisions that were deposited between
  946. X\fId1\fR and \fId2\fR, (inclusive).
  947. XA range of the form \fI<d\fR or \fId>\fR selects
  948. Xall revisions dated
  949. X\fId\fR or earlier.
  950. XA range of the form \fId<\fR or \fI>d\fR selects
  951. Xall revisions dated \fId\fR or later.
  952. XA range of the form \fId\fR selects the single, latest revision dated \fId\fR or
  953. Xearlier.
  954. XThe date/time strings \fId, d1, \fRand \fId2\fR
  955. Xare in the free format explained in
  956. X.IR co (1L). 
  957. XQuoting is normally necessary, especially for \fI<\fR and \fI>\fR. Note that the separator is
  958. Xa semicolon.
  959. X.TP 10
  960. X.B \-l\fR[\fIlockers\fR]
  961. Xprints information about locked revisions.
  962. XIf the comma-separated list \fIlockers\fR of login names is given,
  963. Xonly the revisions locked by the given login names are printed.
  964. XIf the list is omitted, all locked revisions are printed.
  965. X.TP 10
  966. X.BI \-r "revisions"
  967. Xprints information about revisions given in the comma-separated list
  968. X\fIrevisions\fR of revisions and ranges. A range \fIrev1-rev2\fR means revisions
  969. X\fIrev1\fR to \fIrev2\fR on the same branch, \fI-rev\fR means revisions
  970. Xfrom the beginning of the branch up to and including \fIrev\fR,
  971. Xand \fIrev-\fR means revisions starting with \fIrev\fR to the end of the
  972. Xbranch containing \fIrev\fR. An argument that is a branch means all
  973. Xrevisions on that branch. A range of branches means all revisions
  974. Xon the branches in that range.
  975. X.TP 10
  976. X.BI \-s "states"
  977. Xprints information about revisions whose state attributes match one of the
  978. Xstates given in the comma-separated list \fIstates\fR.
  979. X.TP 10
  980. X.B \-w\fR[\fIlogins\fR]
  981. Xprints information about revisions checked in by users with 
  982. Xlogin names appearing in the comma-separated list \fIlogins\fR.
  983. XIf \fIlogins\fR is omitted, the user's login is assumed.
  984. X.PP
  985. X\fIRlog\fR prints the intersection of the revisions selected with
  986. Xthe options \fB\-d\fR, \fB\-l\fR, \fB\-s\fR, \fB\-w\fR, intersected
  987. Xwith the union of the revisions selected by \fB\-b\fR and \fB\-r\fR.
  988. X.SH EXAMPLES
  989. X.nf
  990. X.sp
  991. X        rlog  \-L  \-R  RCS/*,v
  992. X        rlog  \-L  \-h  RCS/*,v
  993. X        rlog  \-L  \-l  RCS/*,v
  994. X        rlog  RCS/*,v
  995. X.sp
  996. X.fi
  997. XThe first command prints the names of all RCS files in the subdirectory `RCS'
  998. Xwhich have locks. The second command prints the headers of those files,
  999. Xand the third prints the headers plus the log messages of the locked revisions.
  1000. XThe last command prints complete information.
  1001. X.SH DIAGNOSTICS
  1002. XThe exit status always refers to the last RCS file operated upon,
  1003. Xand is 0 if the operation was successful, 1 otherwise.
  1004. X.SH IDENTIFICATION
  1005. X.de VL
  1006. X\\$2
  1007. X..
  1008. XAuthor: Walter F. Tichy,
  1009. XPurdue University, West Lafayette, IN, 47907.
  1010. X.sp 0
  1011. XRevision Number:
  1012. X.VL $Revision: 1.3 $
  1013. X; Release Date:
  1014. X.VL $Date: 89/05/02 11:19:20 $
  1015. X\&.
  1016. X.sp 0
  1017. XCopyright \(co 1982, 1988, 1989 by Walter F. Tichy.
  1018. X.SH SEE ALSO
  1019. Xci(1L), co(1L), ident(1L), rcs(1L), rcsdiff(1L), rcsintro(1L), rcsmerge(1L),
  1020. Xrcsfile(5L)
  1021. X.br
  1022. XWalter F. Tichy, "Design, Implementation, and Evaluation of a Revision Control
  1023. XSystem," in \fIProceedings of the 6th International Conference on Software
  1024. XEngineering\fR, IEEE, Tokyo, Sept. 1982.
  1025. SHAR_EOF
  1026. if `test ! -d ked`
  1027. then
  1028.   mkdir ked
  1029.   echo "mkdir ked"
  1030. fi
  1031. echo "extracting ked/ked.c,v"
  1032. sed 's/^X//' << \SHAR_EOF > ked/ked.c,v
  1033. Xhead     1.5;
  1034. Xbranch   ;
  1035. Xaccess   ;
  1036. Xsymbols  ;
  1037. Xlocks    ; strict;
  1038. Xcomment  @ * @;
  1039. X
  1040. X
  1041. X1.5
  1042. Xdate     89.09.17.10.58.39;  author rick;  state Exp;
  1043. Xbranches ;
  1044. Xnext     1.4;
  1045. X
  1046. X1.4
  1047. Xdate     89.09.04.18.52.56;  author rick;  state Exp;
  1048. Xbranches ;
  1049. Xnext     1.3;
  1050. X
  1051. X1.3
  1052. Xdate     89.09.01.11.02.22;  author rick;  state Exp;
  1053. Xbranches ;
  1054. Xnext     1.2;
  1055. X
  1056. X1.2
  1057. Xdate     89.08.27.19.01.04;  author rick;  state Exp;
  1058. Xbranches ;
  1059. Xnext     1.1;
  1060. X
  1061. X1.1
  1062. Xdate     89.08.27.17.44.11;  author rick;  state Exp;
  1063. Xbranches ;
  1064. Xnext     ;
  1065. X
  1066. X
  1067. Xdesc
  1068. X@Initial checkin
  1069. X@
  1070. X
  1071. X
  1072. X1.5
  1073. Xlog
  1074. X@Cleanup so no errors when compiled with Lattice C
  1075. X@
  1076. Xtext
  1077. X@/* ed - standard editor        Authors: Brian Beattie, Kees Bot, and others */
  1078. X
  1079. X/* Modifications for Amiga made by Rick Schaeffer */
  1080. X
  1081. X/*
  1082. X * Copyright 1987 Brian Beattie Rights Reserved.
  1083. X *
  1084. X * Permission to copy and/or distribute granted under the
  1085. X * following conditions:
  1086. X *
  1087. X * 1). No charge may be made other than reasonable charges
  1088. X *    for reproduction.
  1089. X *
  1090. X * 2). This notice must remain intact.
  1091. X *
  1092. X * 3). No further restrictions may be added.
  1093. X *
  1094. X */
  1095. X
  1096. X/*    This program used to be in many little pieces, with this makefile:
  1097. X.SUFFIXES:    .c .s
  1098. X
  1099. XCFLAGS = -F 
  1100. X
  1101. XOBJS =    append.s catsub.s ckglob.s deflt.s del.s docmd.s doglob.s\
  1102. X    doprnt.s doread.s dowrite.s ed.s egets.s find.s getfn.s getlst.s\
  1103. X    getnum.s getone.s getptr.s getrhs.s gettxt.s ins.s join.s maksub.s\
  1104. X    move.s optpat.s set.s setbuf.s subst.s getpat.s matchs.s amatch.s\
  1105. X    unmkpat.s omatch.s makepat.s bitmap.s dodash.s esc.s system.s
  1106. X
  1107. Xed:    $(OBJS)
  1108. X    cc -T. -i -o ed $(OBJS)
  1109. X*/
  1110. X
  1111. X#include <stdio.h>
  1112. X#include <ios1.h>
  1113. X/****************************/
  1114. X
  1115. X/*    tools.h    */
  1116. Xstatic char    tools_h[] =
  1117. X"$Header: Rodime:ricks/rcs2/src/ked/ked.c,v 1.4 89/09/04 18:52:56 rick Exp Locker: rick $";
  1118. X/*
  1119. X *    #defines for non-printing ASCII characters
  1120. X */
  1121. X
  1122. X#define NUL    0x00    /* ^@@ */
  1123. X#define EOS    0x00    /* end of string */
  1124. X#define SOH    0x01    /* ^A */
  1125. X#define STX    0x02    /* ^B */
  1126. X#define ETX    0x03    /* ^C */
  1127. X#define EOT    0x04    /* ^D */
  1128. X#define ENQ    0x05    /* ^E */
  1129. X#define ACK    0x06    /* ^F */
  1130. X#define BEL    0x07    /* ^G */
  1131. X#define BS    0x08    /* ^H */
  1132. X#define HT    0x09    /* ^I */
  1133. X#define LF    0x0a    /* ^J */
  1134. X#define NL    '\n'
  1135. X#define VT    0x0b    /* ^K */
  1136. X#define FF    0x0c    /* ^L */
  1137. X#define CR    0x0d    /* ^M */
  1138. X#define SO    0x0e    /* ^N */
  1139. X#define SI    0x0f    /* ^O */
  1140. X#define DLE    0x10    /* ^P */
  1141. X#define DC1    0x11    /* ^Q */
  1142. X#define DC2    0x12    /* ^R */
  1143. X#define DC3    0x13    /* ^S */
  1144. X#define DC4    0x14    /* ^T */
  1145. X#define NAK    0x15    /* ^U */
  1146. X#define SYN    0x16    /* ^V */
  1147. X#define ETB    0x17    /* ^W */
  1148. X#define CAN    0x18    /* ^X */
  1149. X#define EM    0x19    /* ^Y */
  1150. X#define SUB    0x1a    /* ^Z */
  1151. X#define ESC    0x1b    /* ^[ */
  1152. X#define FS    0x1c    /* ^\ */
  1153. X#define GS    0x1d    /* ^] */
  1154. X#define RS    0x1e    /* ^^ */
  1155. X#define US    0x1f    /* ^_ */
  1156. X#define SP    0x20    /* space */
  1157. X#define DEL    0x7f    /* DEL*/
  1158. X
  1159. X
  1160. X#define TRUE    1
  1161. X#define FALSE    0
  1162. X#define ERR    -2
  1163. X
  1164. X
  1165. X/*    Definitions of meta-characters used in pattern matching
  1166. X *    routines.  LITCHAR & NCCL are only used as token identifiers;
  1167. X *    all the others are also both token identifier and actual symbol
  1168. X *    used in the regular expression.
  1169. X */
  1170. X
  1171. X
  1172. X#define BOL    '^'
  1173. X#define EOL    '$'
  1174. X#define ANY    '.'
  1175. X#define LITCHAR    'L'
  1176. X#define    ESCAPE    '\\'
  1177. X#define CCL    '['    /* Character class: [...] */
  1178. X#define CCLEND    ']'
  1179. X#define NEGATE    '~'
  1180. X#define NCCL    '!'    /* Negative character class [^...] */
  1181. X#define CLOSURE    '*'
  1182. X#define OR_SYM    '|'
  1183. X#define DITTO    '&'
  1184. X#define OPEN    '('
  1185. X#define CLOSE    ')'
  1186. X
  1187. X/* Largest permitted size for an expanded character class.  (i.e. the class
  1188. X * [a-z] will expand into 26 symbols; [a-z0-9] will expand into 36.)
  1189. X */
  1190. X#define CLS_SIZE    128
  1191. X
  1192. X/*
  1193. X *    Tokens are used to hold pattern templates. (see makepat())
  1194. X */
  1195. Xtypedef    char    BITMAP;
  1196. X
  1197. Xtypedef struct token {
  1198. X    char        tok;
  1199. X    char        lchar;
  1200. X    BITMAP        *bitmap;
  1201. X    struct token    *next;
  1202. X} TOKEN;
  1203. X
  1204. X#define TOKSIZE sizeof (TOKEN)
  1205. X
  1206. X/*
  1207. X *    An absolute maximun for strings.
  1208. X */
  1209. X
  1210. X#define MAXSTR    132    /* Maximum numbers of characters in a line */
  1211. X
  1212. X
  1213. Xextern    char    *matchs();
  1214. Xextern    char    *amatch();
  1215. Xextern    char    *in_string();
  1216. Xextern    TOKEN    *getpat();
  1217. Xextern    int    esc();
  1218. Xextern    char    *dodash();
  1219. Xextern    TOKEN    *makepat();
  1220. Xextern    void    unmakepat();
  1221. Xextern    int    insert();
  1222. Xextern    int    delete();
  1223. Xextern    int    isalphanum();
  1224. Xextern    char    *stoupper();
  1225. Xextern    int    pr_tok();
  1226. Xextern    int    pr_line();
  1227. Xextern    BITMAP    *makebitmap();
  1228. X
  1229. X/* macros */
  1230. X#define toupper(c)    (c>='a'&&c<='z'?c-32:c)
  1231. X
  1232. X/*    ed.h    */
  1233. X#define FATAL    (ERR-1)
  1234. Xstruct    line {
  1235. X    int        l_stat;        /* empty, mark */
  1236. X    struct line    *l_prev;
  1237. X    struct line    *l_next;
  1238. X    char        l_buff[1];
  1239. X};
  1240. X
  1241. Xtypedef struct line    LINE;
  1242. X
  1243. X#define LINFREE    1    /* entry not in use */
  1244. X#define LGLOB    2       /* line marked global */
  1245. X
  1246. X#define MAXLINE    256    /* max number of chars per line */
  1247. X#define MAXPAT    256    /* max number of chars per replacement pattern */
  1248. X#define MAXFNAME 256    /* max file name size */
  1249. X
  1250. Xextern LINE    line0;
  1251. Xextern int    curln, lastln, line1, line2, nlines;
  1252. Xextern int    nflg;        /* print line number flag */
  1253. Xextern int    lflg;        /* print line in verbose mode */
  1254. Xextern int    pflg;        /* print current line after each command */
  1255. Xextern char    *inptr;            /* tty input buffer */
  1256. Xextern char    linbuf[], *linptr;    /* current line */
  1257. Xextern int    truncflg;    /* truncate long line flag */
  1258. Xextern int    eightbit;    /* save eighth bit */
  1259. Xextern int    nonascii;    /* count of non-ascii chars read */
  1260. Xextern int    nullchar;    /* count of null chars read */
  1261. Xextern int    truncated;    /* count of lines truncated */
  1262. Xextern int    fchanged;    /* file changed */
  1263. X
  1264. X#define nextln(l)    ((l)+1 > lastln ? 0 : (l)+1)
  1265. X#define prevln(l)    ((l)-1 < 0 ? lastln : (l)-1)
  1266. X
  1267. Xextern char    *getfn();
  1268. Xextern LINE    *getptr();
  1269. Xextern char    *gettxt();
  1270. Xextern char    *maksub();
  1271. Xextern TOKEN    *optpat();
  1272. X
  1273. Xextern char    *catsub();
  1274. X
  1275. Xextern char    *strcpy();
  1276. Xextern int    *malloc();
  1277. Xextern void putcntl(),prntln(),relink(),clrbuf(),edsetbuf();
  1278. X
  1279. X/*    amatch.c    */
  1280. X/* #include <stdio.h> */
  1281. X/* #include "tools.h" */
  1282. X
  1283. X/*     Scans throught the pattern template looking for a match
  1284. X * with lin.  Each element of lin is compared with the template
  1285. X * until either a mis-match is found or the end of the template
  1286. X * is reached.  In the former case a 0 is returned; in the latter,
  1287. X * a pointer into lin (pointing to the character following the
  1288. X * matched pattern) is returned.
  1289. X *
  1290. X *    "lin"    is a pointer to the line being searched.
  1291. X *    "pat"    is a pointer to a template made by makepat().
  1292. X *    "boln"    is a pointer into "lin" which points at the
  1293. X *            character at the beginning of the line.
  1294. X */
  1295. X
  1296. Xchar *paropen[9], *parclose[9];
  1297. Xint between, parnum;
  1298. Xstatic char *match();
  1299. X
  1300. Xchar    *
  1301. Xamatch(lin, pat, boln)
  1302. Xchar    *lin;
  1303. XTOKEN    *pat;
  1304. Xchar    *boln;
  1305. X{
  1306. X
  1307. X    between=0;
  1308. X    parnum=0;
  1309. X
  1310. X    lin=match(lin, pat, boln);
  1311. X
  1312. X    if (between) return 0;
  1313. X
  1314. X    while (parnum<9) {
  1315. X        paropen[parnum] = parclose[parnum] = "";
  1316. X        parnum++;
  1317. X    }
  1318. X    return lin;
  1319. X}
  1320. X
  1321. Xstatic char    *
  1322. Xmatch(lin, pat, boln)
  1323. Xchar    *lin;
  1324. XTOKEN    *pat;
  1325. Xchar    *boln;
  1326. X{
  1327. X    register char    *bocl, *rval, *strstart;
  1328. X
  1329. X    if(pat == 0)
  1330. X        return 0;
  1331. X
  1332. X    strstart = lin;
  1333. X
  1334. X    while(pat)
  1335. X    {
  1336. X        if(pat->tok == CLOSURE && pat->next)
  1337. X        {
  1338. X                /* Process a closure:
  1339. X                 * first skip over the closure token to the
  1340. X                 * object to be repeated.  This object can be
  1341. X                 * a character class.
  1342. X                 */
  1343. X
  1344. X            pat = pat->next;
  1345. X
  1346. X                /* Now match as many occurrences of the
  1347. X                 * closure pattern as possible.
  1348. X                 */
  1349. X            bocl = lin;
  1350. X
  1351. X            while( *lin && omatch(&lin, pat))
  1352. X                ;
  1353. X
  1354. X                /* 'Lin' now points to the character that made
  1355. X                 * made us fail.  Now go on to process the
  1356. X                 * rest of the string.  A problem here is
  1357. X                 * a character following the closure which
  1358. X                 * could have been in the closure.
  1359. X                 * For example, in the pattern "[a-z]*t" (which
  1360. X                 * matches any lower-case word ending in a t),
  1361. X                 * the final 't' will be sucked up in the while
  1362. X                 * loop.  So, if the match fails, we back up a
  1363. X                 * notch and try to match the rest of the
  1364. X                 * string again, repeating this process
  1365. X                 * recursively until we get back to the
  1366. X                 * beginning of the closure.  The recursion
  1367. X                 * goes, at most two levels deep.
  1368. X                 */
  1369. X
  1370. X            if(pat = pat->next)
  1371. X            {
  1372. X                int savbtwn=between;
  1373. X                int savprnm=parnum;
  1374. X
  1375. X                while(bocl <= lin)
  1376. X                {
  1377. X                    if(rval = match(lin, pat, boln))
  1378. X                    {
  1379. X                            /* success */
  1380. X                        return(rval);
  1381. X                    } else {
  1382. X                        --lin;
  1383. X                        between=savbtwn;
  1384. X                        parnum=savprnm;
  1385. X                    }
  1386. X                }
  1387. X                return (0);    /* match failed */
  1388. X            }
  1389. X        } else
  1390. X        if (pat->tok == OPEN)
  1391. X        {
  1392. X            if (between || parnum>=9) return 0;
  1393. X            paropen[parnum] = lin;
  1394. X            between=1;
  1395. X            pat = pat->next;
  1396. X        } else
  1397. X        if (pat->tok == CLOSE)
  1398. X        {
  1399. X            if (!between) return 0;
  1400. X            parclose[parnum++] = lin;
  1401. X            between=0;
  1402. X            pat = pat->next;
  1403. X        } else
  1404. X        if (omatch(&lin, pat, boln))
  1405. X        {
  1406. X            pat = pat->next;
  1407. X        } else {
  1408. X            return (0);
  1409. X        }
  1410. X    }
  1411. X        /* Note that omatch() advances lin to point at the next
  1412. X         * character to be matched.  Consequently, when we reach
  1413. X         * the end of the template, lin will be pointing at the
  1414. X         * character following the last character matched.  The
  1415. X         * exceptions are templates containing only a BOLN or EOLN
  1416. X         * token.  In these cases omatch doesn't advance.
  1417. X         *
  1418. X         * A philosophical point should be mentioned here.  Is $
  1419. X         * a position or a character? (i.e. does $ mean the EOL
  1420. X         * character itself or does it mean the character at the end
  1421. X         * of the line.)  I decided here to make it mean the former,
  1422. X         * in order to make the behavior of match() consistent.  If
  1423. X         * you give match the pattern ^$ (match all lines consisting
  1424. X         * only of an end of line) then, since something has to be
  1425. X         * returned, a pointer to the end of line character itself is
  1426. X         * returned.
  1427. X         */
  1428. X
  1429. X    return ((char *)max(strstart , lin));
  1430. X}
  1431. X
  1432. X/*    append.c    */
  1433. X/* #include <stdio.h> */
  1434. X/* #include "tools.h" */
  1435. X/* #include "ed.h" */
  1436. X
  1437. Xappend(line, glob)
  1438. Xint    line, glob;
  1439. X{
  1440. X    int    stat;
  1441. X    char    lin[MAXLINE];
  1442. X
  1443. X    if(glob)
  1444. X        return(ERR);
  1445. X    curln = line;
  1446. X    while(1)
  1447. X    {
  1448. X        if(nflg)
  1449. X            printf("%d\t",curln+1);
  1450. X
  1451. X        if(fgets(lin, MAXLINE, stdin) == NULL)
  1452. X            return( EOF );
  1453. X        if(lin[0] == '.' && lin[1] == '\n')
  1454. X            return(0);
  1455. X        stat = ins(lin);
  1456. X        if(stat < 0)
  1457. X            return( ERR );
  1458. X        
  1459. X    }
  1460. X}
  1461. X
  1462. X/*    bitmap.c    */
  1463. X/*
  1464. X *    BITMAP.C -    makebitmap, setbit, testbit
  1465. X *            bit-map manipulation routines.
  1466. X *
  1467. X *    Copyright (c) Allen I. Holub, all rights reserved.  This program may
  1468. X *        for copied for personal, non-profit use only.
  1469. X *
  1470. X */
  1471. X 
  1472. X#ifdef DEBUG
  1473. X/* #include <stdio.h> */
  1474. X#endif
  1475. X 
  1476. X/* #include "tools.h" */
  1477. X 
  1478. X
  1479. XBITMAP    *makebitmap( size )
  1480. Xunsigned size;
  1481. X{
  1482. X    /*    Make a bit map with "size" bits.  The first entry in
  1483. X     *    the map is an "unsigned int" representing the maximum
  1484. X     *    bit.  The map itself is concatenated to this integer.
  1485. X     *    Return a pointer to a map on success, 0 if there's
  1486. X     *    not enough memory.
  1487. X     */
  1488. X
  1489. X    unsigned *map, numbytes;
  1490. X
  1491. X    numbytes = (size >> 3) + ((size & 0x07) ? 1 : 0 );
  1492. X
  1493. X#ifdef DEBUG
  1494. X    printf("Making a %d bit map (%d bytes required)\n", size, numbytes);
  1495. X#endif
  1496. X
  1497. X    if( map = (unsigned *) malloc( numbytes + sizeof(unsigned) ))
  1498. X        *map = size;
  1499. X
  1500. X    return ((BITMAP *)map);
  1501. X}
  1502. X
  1503. Xsetbit( c, map, val )
  1504. Xunsigned    c, val;
  1505. Xchar        *map;
  1506. X{
  1507. X    /*    Set bit c in the map to val.
  1508. X     *    If c > map-size, 0 is returned, else 1 is returned.
  1509. X     */
  1510. X
  1511. X    if( c >= *(unsigned *)map )    /* if c >= map size */
  1512. X        return 0;
  1513. X
  1514. X    map += sizeof(unsigned);    /* skip past size */
  1515. X    
  1516. X    if( val )
  1517. X        map[c >> 3] |= 1 << (c & 0x07);
  1518. X    else
  1519. X        map[c >> 3] &= ~(1 << (c & 0x07));
  1520. X
  1521. X    return( 1 );
  1522. X}
  1523. X
  1524. Xtestbit( c, map )
  1525. Xunsigned    c;
  1526. Xchar        *map;
  1527. X{
  1528. X    /*    Return 1 if the bit corresponding to c in map is set.
  1529. X     *    0 if it is not.
  1530. X     */
  1531. X
  1532. X    if( c >= *(unsigned *)map )
  1533. X        return 0;
  1534. X
  1535. X    map += sizeof(unsigned);
  1536. X    
  1537. X    return(map[ c >> 3 ] & (1 << (c & 0x07)));
  1538. X}
  1539. X
  1540. X/*    catsub.c    */
  1541. X/* #include <stdio.h> */
  1542. X/* #include "tools.h" */
  1543. X/* #include "ed.h" */
  1544. X
  1545. Xextern char *paropen[9], *parclose[9];
  1546. X
  1547. Xchar    *
  1548. Xcatsub(from, to, sub, new, newend)
  1549. Xchar    *from, *to, *sub, *new, *newend;
  1550. X{
  1551. X    char    *cp, *cp2;
  1552. X
  1553. X    for(cp = new; *sub != EOS && cp < newend;)
  1554. X    {
  1555. X        if(*sub == DITTO)
  1556. X            for(cp2 = from; cp2 < to;)
  1557. X            {
  1558. X                *cp++ = *cp2++;
  1559. X                if(cp >= newend)
  1560. X                    break;
  1561. X            }
  1562. X        else
  1563. X        if (*sub == ESCAPE) {
  1564. X            sub++;
  1565. X            if ('1' <= *sub && *sub <= '9') {
  1566. X                char *parcl = parclose[*sub - '1'];
  1567. X
  1568. X                for (cp2 = paropen[*sub - '1']; cp2 < parcl;)
  1569. X                {
  1570. X                    *cp++ = *cp2++;
  1571. X                    if (cp >= newend) break;
  1572. X                }
  1573. X            } else
  1574. X                *cp++ = *sub;
  1575. X        } else
  1576. X            *cp++ = *sub;
  1577. X
  1578. X        sub++;
  1579. X    }
  1580. X
  1581. X    return(cp);
  1582. X}
  1583. X
  1584. X/*    ckglob.c    */
  1585. X/* #include <stdio.h> */
  1586. X/* #include "tools.h" */
  1587. X/* #include "ed.h" */
  1588. X
  1589. Xckglob()
  1590. X{
  1591. X    TOKEN    *glbpat;
  1592. X    char    c, delim, *lin;
  1593. X    int    num;
  1594. X    LINE    *ptr;
  1595. X
  1596. X    c = *inptr;
  1597. X
  1598. X    if(c != 'g' && c != 'v')
  1599. X        return(0);
  1600. X
  1601. X    if (deflt(1, lastln) < 0)
  1602. X        return(ERR);
  1603. X
  1604. X    delim = *++inptr;
  1605. X    if(delim <= ' ')
  1606. X        return(ERR);
  1607. X
  1608. X    glbpat = optpat();
  1609. X
  1610. X    if(*inptr == delim)
  1611. X        inptr++;
  1612. X
  1613. X    for (num=1; num<=lastln; num++)
  1614. X    {
  1615. X        ptr = getptr(num);
  1616. X        ptr->l_stat &= ~LGLOB;
  1617. X        if (line1 <= num && num <= line2) {
  1618. X            lin = gettxt(num);
  1619. X            if(matchs(lin, glbpat, 0)) {
  1620. X                if (c=='g') ptr->l_stat |= LGLOB;
  1621. X            } else {
  1622. X                if (c=='v') ptr->l_stat |= LGLOB;
  1623. X            }
  1624. X        }
  1625. X    }
  1626. X    return(1);
  1627. X}
  1628. X
  1629. X/*    deflt.c    */
  1630. X/* #include <stdio.h> */
  1631. X/* #include "tools.h" */
  1632. X/* #include "ed.h" */
  1633. X
  1634. Xdeflt(def1, def2)
  1635. Xint    def1, def2;
  1636. X{
  1637. X    if(nlines == 0)
  1638. X    {
  1639. X        line1 = def1;
  1640. X        line2 = def2;
  1641. X    }
  1642. X    if(line1 > line2 || line1 <= 0)
  1643. X        return (ERR);
  1644. X}
  1645. X
  1646. X/*    del.c    */
  1647. X/* #include <stdio.h> */
  1648. X/* #include "tools.h" */
  1649. X/* #include "ed.h" */
  1650. X
  1651. Xdel(from, to)
  1652. Xint    from, to;
  1653. X{
  1654. X    LINE    *first, *last, *next, *tmp;
  1655. X
  1656. X    if(from < 1)
  1657. X        from = 1;
  1658. X    first = getptr(prevln(from));
  1659. X    last = getptr(nextln(to));
  1660. X    next = first->l_next;
  1661. X    while(next != last && next != &line0)
  1662. X    {
  1663. X        tmp = next->l_next;
  1664. X        free(next);
  1665. X        next = tmp;
  1666. X    }
  1667. X    relink(first, last, first, last);
  1668. X    lastln -= (to - from)+1;
  1669. X    curln = prevln(from);
  1670. X    return(1);
  1671. X}
  1672. X
  1673. X/*    docmd.c    */
  1674. X/* #include <stdio.h> */
  1675. X/* #include "tools.h" */
  1676. X/* #include "ed.h" */
  1677. X
  1678. Xchar    fname[MAXFNAME];
  1679. Xint    fchanged;
  1680. Xextern int nofname;
  1681. Xextern int prompt;
  1682. Xextern    int mark[];
  1683. X
  1684. Xdocmd(glob)
  1685. Xint    glob;
  1686. X{
  1687. X    static char    rhs[MAXPAT];
  1688. X    TOKEN    *subpat;
  1689. X    int    c, err, line3;
  1690. X    int    apflg, pflag, gflag;
  1691. X    int    nchng;
  1692. X    char    *fptr;
  1693. X
  1694. X    pflag = FALSE;
  1695. X    while(*inptr == SP && *inptr == HT)
  1696. X        inptr++;
  1697. X
  1698. X    c = *inptr++;
  1699. X
  1700. X    switch(c)
  1701. X    {
  1702. X    case NL:                    /* print next line */
  1703. X        if(nlines == 0)
  1704. X        {
  1705. X            if ((line2 = nextln(curln))==0)
  1706. X                return(ERR);
  1707. X        }
  1708. X        curln = line2;
  1709. X        return (1);
  1710. X        break;
  1711. X
  1712. X    case '=':                    /* print current line number */
  1713. X        printf("%d\n",line2);
  1714. X        break;
  1715. X
  1716. X    case 'a':                    /* append lines */
  1717. X        if(*inptr != NL || nlines > 1)
  1718. X            return(ERR);
  1719. X
  1720. X        if(append(line1, glob) < 0)
  1721. X            return(ERR);;
  1722. X        fchanged = TRUE;
  1723. X        break;
  1724. X
  1725. X    case 'c':                    /* changed lines */
  1726. X        if(*inptr != NL)
  1727. X            return(ERR);
  1728. X
  1729. X        if(deflt(curln, curln) < 0)
  1730. X            return(ERR);
  1731. X
  1732. X        if(del(line1, line2) < 0)
  1733. X            return(ERR);
  1734. X        if(append(curln, glob) < 0)
  1735. X            return(ERR);
  1736. X        fchanged = TRUE;
  1737. X        break;
  1738. X
  1739. X    case 'd':                    /* delete lines */
  1740. X        if(*inptr != NL)
  1741. X            return(ERR);
  1742. X
  1743. X        if(deflt(curln, curln) < 0)
  1744. X            return(ERR);
  1745. X
  1746. X        if(del(line1, line2) < 0)
  1747. X            return(ERR);
  1748. X        if(nextln(curln) != 0)
  1749. X            curln = nextln(curln);
  1750. X        fchanged = TRUE;
  1751. X        break;
  1752. X
  1753. X    case 'e':                    /* edit new file with change check */
  1754. X        if(nlines > 0)
  1755. X            return(ERR);
  1756. X        if(fchanged) {
  1757. X            fchanged = FALSE;
  1758. X            return(ERR);
  1759. X        }
  1760. X        /*FALL THROUGH*/
  1761. X    case 'E':                    /* edit new file no check */
  1762. X        if(nlines > 0)
  1763. X            return(ERR);
  1764. X
  1765. X        if(*inptr != ' ' && *inptr != HT && *inptr != NL)
  1766. X            return(ERR);
  1767. X
  1768. X        if((fptr = getfn()) == NULL)
  1769. X            return(ERR);
  1770. X
  1771. X        clrbuf();
  1772. X        if((err = doread(0, fptr)) < 0)
  1773. X            return(err);
  1774. X
  1775. X        strcpy(fname, fptr);
  1776. X        fchanged = FALSE;
  1777. X        break;
  1778. X
  1779. X    case 'f':                    /* set or display current file name */
  1780. X        if(nlines > 0)
  1781. X            return(ERR);
  1782. X
  1783. X        if(*inptr != ' ' && *inptr != HT && *inptr != NL)
  1784. X            return(ERR);
  1785. X
  1786. X        if((fptr = getfn()) == NULL)
  1787. X            return(ERR);
  1788. X
  1789. X        if (nofname)
  1790. X            printf("%s\n", fname);
  1791. X        else
  1792. X            strcpy(fname, fptr);
  1793. X        break;
  1794. X
  1795. X    case 'H':
  1796. X    case 'h':                    /* print last error */
  1797. X        return(ERR);
  1798. X        break;
  1799. X
  1800. X    case 'i':                    /* insert lines */
  1801. X        if(*inptr != NL || nlines > 1)
  1802. X            return(ERR);
  1803. X
  1804. X        if(append(prevln(line1), glob) < 0)
  1805. X            return(ERR);
  1806. X        fchanged = TRUE;
  1807. X        break;
  1808. X
  1809. X    case 'j':                    /* join lines */
  1810. X        if (*inptr != NL || deflt(curln, curln+1)<0)
  1811. X            return(ERR);
  1812. X
  1813. X        if (join(line1, line2) < 0)
  1814. X            return(ERR);
  1815. X        break;
  1816. X
  1817. X    case 'k':                    /* mark line address */
  1818. X        while (*inptr == ' ' || *inptr == HT) inptr++;
  1819. X
  1820. X        if (*inptr < 'a' || *inptr > 'z')
  1821. X            return ERR;
  1822. X        c= *inptr++;
  1823. X
  1824. X        if(*inptr != ' ' && *inptr != HT && *inptr != NL)
  1825. X            return(ERR);
  1826. X
  1827. X        mark[c-'a'] = line1;
  1828. X        break;
  1829. X
  1830. X    case 'L':                    /* toggle verbose print */
  1831. X        lflg = ~lflg;
  1832. X        break;
  1833. X
  1834. X    case 'l':                    /* print lines verbose */
  1835. X        if(*inptr != NL)
  1836. X            return(ERR);
  1837. X        if(deflt(curln,curln) < 0)
  1838. X            return(ERR);
  1839. X        if (dolst(line1,line2) < 0)
  1840. X            return(ERR);
  1841. X        break;
  1842. X
  1843. X    case 'm':                    /* move lines */
  1844. X        if((line3 = getone()) < 0)
  1845. X            return(ERR);
  1846. X        if(deflt(curln,curln) < 0)
  1847. X            return(ERR);
  1848. X        if(move(line3) < 0)
  1849. X            return(ERR);
  1850. X        fchanged = TRUE;
  1851. X        break;
  1852. X
  1853. X    case 'N':                    /* toggle print line numbers */
  1854. X        nflg = ~nflg;
  1855. X        break;
  1856. X
  1857. X    case 'n':                    /* print lines with numbers */
  1858. X        if(*inptr != NL)
  1859. X            return(ERR);
  1860. X        if(deflt(curln,curln) < 0)
  1861. X            return(ERR);
  1862. X        if (donum(line1,line2) < 0)
  1863. X            return(ERR);
  1864. X        break;
  1865. X
  1866. X    case 'P':                    /* toggle prompt */
  1867. X        prompt = ~prompt;
  1868. X        break;
  1869. X
  1870. X    case 'p':                    /* print lines */
  1871. X        if(*inptr != NL)
  1872. X            return(ERR);
  1873. X        if(deflt(curln,curln) < 0)
  1874. X            return(ERR);
  1875. X        if(doprnt(line1,line2) < 0)
  1876. X            return(ERR);
  1877. X        break;
  1878. X
  1879. X    case 'q':                    /* quit, check changed */
  1880. X        if(fchanged) {
  1881. X            fchanged = FALSE;
  1882. X            return(ERR);
  1883. X        }
  1884. X        /*FALL THROUGH*/
  1885. X    case 'Q':                    /* quit, no check for change */
  1886. X        if(*inptr == NL && nlines == 0 && !glob)
  1887. X            return(EOF);
  1888. X        else
  1889. X            return(ERR);
  1890. X
  1891. X    case 'r':                    /* read in file */
  1892. X        if(nlines > 1)
  1893. X            return(ERR);
  1894. X
  1895. X        if(nlines == 0)
  1896. X            line2 = lastln;
  1897. X
  1898. X        if(*inptr != ' ' && *inptr != HT && *inptr != NL)
  1899. X            return(ERR);
  1900. X
  1901. X        if((fptr = getfn()) == NULL)
  1902. X            return(ERR);
  1903. X
  1904. X        if((err = doread(line2, fptr)) < 0)
  1905. X            return(err);
  1906. X        fchanged = TRUE;
  1907. X        break;
  1908. X
  1909. X    case 's':                    /* substitute, set */
  1910. X        if(*inptr == 'e')
  1911. X            return(set());
  1912. X        while(*inptr == SP || *inptr == HT)
  1913. X            inptr++;
  1914. X        if((subpat = optpat()) == NULL)
  1915. X            return(ERR);
  1916. X        if((gflag = getrhs(rhs)) < 0)
  1917. X            return(ERR);
  1918. X        if(*inptr == 'p')
  1919. X            pflag++;
  1920. X        if(deflt(curln, curln) < 0)
  1921. X            return(ERR);
  1922. X        if((nchng = subst(subpat, rhs, gflag, pflag)) < 0)
  1923. X            return(ERR);
  1924. X        if(nchng)
  1925. X            fchanged = TRUE;
  1926. X        break;
  1927. X
  1928. X    case 't':                    /* copy lines */
  1929. X        if((line3 = getone()) < 0)
  1930. X            return(ERR);
  1931. X        if(deflt(curln,curln) < 0)
  1932. X            return(ERR);
  1933. X        if(transfer(line3) < 0)
  1934. X            return(ERR);
  1935. X        fchanged = TRUE;
  1936. X        break;
  1937. X
  1938. X    case 'u':                    /* undo last command */
  1939. X        return(ERR);
  1940. X        break;
  1941. X
  1942. X    case 'W':                    /* write append */
  1943. X    case 'w':                    /* write */ 
  1944. X        apflg = (c=='W');
  1945. X
  1946. X        if(*inptr != ' ' && *inptr != HT && *inptr != NL)
  1947. X            return(ERR);
  1948. X
  1949. X        if((fptr = getfn()) == NULL)
  1950. X            return(ERR);
  1951. X
  1952. X        if(deflt(1, lastln) < 0)
  1953. X            return(ERR);
  1954. X        if(dowrite(line1, line2, fptr, apflg) < 0)
  1955. X            return(ERR);
  1956. X        fchanged = FALSE;
  1957. X        break;
  1958. X
  1959. X    case 'x':                    /* write then quit */
  1960. X        if(*inptr == NL && nlines == 0 && !glob)
  1961. X        {
  1962. X            if((fptr = getfn()) == NULL)
  1963. X                return(ERR);
  1964. X            if(dowrite(1, lastln, fptr, 0) >= 0)
  1965. X                return(EOF);
  1966. X        }
  1967. X        return(ERR);
  1968. X
  1969. X    case 'z':                    /* print +21, -21, -11.+10 lines */
  1970. X        if(deflt(curln,curln) < 0)
  1971. X            return(ERR);
  1972. X
  1973. X        switch(*inptr)
  1974. X        {
  1975. X        case '-':
  1976. X            if(doprnt(line1-21,line1) < 0)
  1977. X                return(ERR);
  1978. X            break;
  1979. X
  1980. X        case '.':
  1981. X            if(doprnt(line1-11,line1+10) < 0)
  1982. X                return(ERR);
  1983. X            break;
  1984. X
  1985. X        case '+':
  1986. X        case '\n':
  1987. X            if(doprnt(line1,line1+21) < 0)
  1988. X                return(ERR);
  1989. X            break;
  1990. X        }
  1991. X        break;
  1992. X
  1993. X    default:
  1994. X        return(ERR);
  1995. X    }
  1996. X    return (0);
  1997. X}
  1998. X
  1999. Xint dolst(line1, line2) int line1, line2;
  2000. X{
  2001. X    int oldlflg=lflg, p;
  2002. X
  2003. X    lflg=1;
  2004. X    p=doprnt(line1, line2);
  2005. X    lflg=oldlflg;
  2006. X
  2007. X    return p;
  2008. X}
  2009. X
  2010. Xint donum(line1, line2) int line1, line2;
  2011. X{
  2012. X    int oldnflg=nflg, p;
  2013. X
  2014. X    nflg=1;
  2015. X    p=doprnt(line1, line2);
  2016. X    nflg=oldnflg;
  2017. X
  2018. X    return p;
  2019. X}
  2020. X
  2021. X/*    dodash.c    */
  2022. X/* #include <stdio.h> */
  2023. X/* #include "tools.h" */
  2024. X
  2025. X/*    Expand the set pointed to by *src into dest.
  2026. X *    Stop at delim.  Return 0 on error or size of
  2027. X *    character class on success.  Update *src to
  2028. X *    point at delim.  A set can have one element
  2029. X *    {x} or several elements ( {abcdefghijklmnopqrstuvwxyz}
  2030. X *    and {a-z} are equivalent ).  Note that the dash
  2031. X *    notation is expanded as sequential numbers.
  2032. X *    This means (since we are using the ASCII character
  2033. X *    set) that a-Z will contain the entire alphabet
  2034. X *    plus the symbols: [\]^_`.  The maximum number of
  2035. X *    characters in a character class is defined by maxccl.
  2036. X */
  2037. Xchar *
  2038. Xdodash(delim, src, map)
  2039. X
  2040. Xint    delim;
  2041. Xchar    *src, *map;
  2042. X{
  2043. X
  2044. X    register int    first,    last;
  2045. X    char        *start;
  2046. X
  2047. X    start = src;
  2048. X
  2049. X    while( *src && *src != delim )
  2050. X    {
  2051. X        if( *src != '-')
  2052. X            setbit( esc( &src ), map, 1 );
  2053. X
  2054. X        else if( src == start || *(src + 1) == delim )
  2055. X            setbit( '-', map, 1 );
  2056. X        else {
  2057. X            src++;
  2058. X
  2059. X            if( *src < *(src - 2))
  2060. X            {
  2061. X                first = *src;
  2062. X                last = *(src - 2);
  2063. X            } else {
  2064. X                first = *(src - 2);
  2065. X                last = *src;
  2066. X            }
  2067. X
  2068. X            while( ++first <= last )
  2069. X                setbit( first, map, 1);
  2070. X
  2071. X        }
  2072. X        src++;
  2073. X    }
  2074. X    return( src );
  2075. X}
  2076. X
  2077. X/*    doglob.c    */
  2078. X/* #include <stdio.h> */
  2079. X/* #include "tools.h" */
  2080. X/* #include "ed.h" */
  2081. X
  2082. Xdoglob()
  2083. X{
  2084. X    int    lin, stat;
  2085. X    char    *cmd;
  2086. X    LINE    *ptr;
  2087. X
  2088. X    cmd = inptr;
  2089. X
  2090. X    while(1)
  2091. X    {
  2092. X        for (lin=1; lin<=lastln; lin++) {
  2093. X            ptr = getptr(lin);
  2094. X            if (ptr->l_stat & LGLOB) break;
  2095. X        }
  2096. X        if (lin>lastln) break;
  2097. X
  2098. X        ptr->l_stat &= ~LGLOB;
  2099. X        curln = lin;
  2100. X        inptr = cmd;
  2101. X        if((stat = getlst()) < 0)
  2102. X            return(stat);
  2103. X        if((stat = docmd(1)) < 0)
  2104. X            return(stat);
  2105. X    }
  2106. X    return(0);
  2107. X}
  2108. X
  2109. X/*    doprnt.c    */
  2110. X/* #include <stdio.h> */
  2111. X/* #include "tools.h" */
  2112. X/* #include "ed.h" */
  2113. X
  2114. Xdoprnt(from, to)
  2115. Xint    from, to;
  2116. X{
  2117. X    int    i;
  2118. X
  2119. X    from = from < 1 ? 1 : from;
  2120. X    to = to > lastln ? lastln : to;
  2121. X        
  2122. X    if(to != 0)
  2123. X    {
  2124. X        for(i = from; i <= to; i++)
  2125. X            prntln(gettxt(i), lflg, (nflg ? i : 0));
  2126. X        curln = to;
  2127. X    }
  2128. X
  2129. X    return(0);
  2130. X}
  2131. X
  2132. Xvoid prntln(str, vflg, lin)
  2133. Xchar    *str;
  2134. Xint    vflg, lin;
  2135. X{
  2136. X    if(lin)
  2137. X        printf("%d\t",lin);
  2138. X    while(*str && *str != NL)
  2139. X    {
  2140. X        if(*str < ' ' || *str >= 0x7f)
  2141. X        {
  2142. X            switch(*str)
  2143. X            {
  2144. X            case '\t':
  2145. X                if(vflg)
  2146. X                    putcntl(*str, stdout);
  2147. X                else
  2148. X                    putc(*str, stdout);
  2149. X                break;
  2150. X
  2151. X            case DEL:
  2152. X                putc('^', stdout);
  2153. X                putc('?', stdout);
  2154. X                break;
  2155. X
  2156. X            default:
  2157. X                putcntl(*str, stdout);
  2158. X                break;
  2159. X            }
  2160. X        } else
  2161. X            putc(*str, stdout);
  2162. X        str++;
  2163. X    }
  2164. X    if(vflg)
  2165. X        putc('$',stdout);
  2166. X    putc('\n', stdout);
  2167. X}
  2168. X
  2169. Xvoid putcntl(c, stream)
  2170. Xchar    c;
  2171. XFILE    *stream;
  2172. X{
  2173. X    putc('^', stream);
  2174. X    putc((c&31)|'@@', stream);
  2175. X}
  2176. X
  2177. X/*    doread.c    */
  2178. X/* #include <stdio.h> */
  2179. X/* #include "tools.h" */
  2180. X/* #include "ed.h" */
  2181. X
  2182. Xextern int diag;
  2183. X
  2184. Xdoread(lin, fname)
  2185. Xint    lin;
  2186. Xchar    *fname;
  2187. X{
  2188. X    extern FILE    *fopen();
  2189. X    FILE    *fp;
  2190. X    int    err;
  2191. X    long    bytes;
  2192. X    int    lines;
  2193. X    static char    str[MAXLINE];
  2194. X
  2195. X    err = 0;
  2196. X    nonascii = nullchar = truncated = 0;
  2197. X
  2198. X    if (diag) printf("\"%s\" ",fname);
  2199. X    if((fp = fopen(fname, "r")) == NULL)
  2200. X    {
  2201. X        printf("file open err\n");
  2202. X        return( ERR );
  2203. X    }
  2204. X    curln = lin;
  2205. X    for(lines = 0, bytes = 0;(err = egets(str,MAXLINE,fp)) > 0;)
  2206. X    {
  2207. X        bytes += strlen(str);
  2208. X        if(ins(str) < 0)
  2209. X        {
  2210. X            printf("file insert error\n");
  2211. X            err++;
  2212. X            break;
  2213. X        }
  2214. X        lines++;
  2215. X    }
  2216. X    fclose(fp);
  2217. X    if(err < 0)
  2218. X        return(err);
  2219. X    if (diag) {
  2220. X        printf("%d lines %d bytes",lines,bytes);
  2221. X        if(nonascii)
  2222. X            printf(" [%d non-ascii]",nonascii);
  2223. X        if(nullchar)
  2224. X            printf(" [%d nul]",nullchar);
  2225. X        if(truncated)
  2226. X            printf(" [%d lines truncated]",truncated);
  2227. X        printf("\n");
  2228. X    }
  2229. X    return( err );
  2230. X}
  2231. X
  2232. X/*    dowrite.c    */
  2233. X/* #include <stdio.h> */
  2234. X/* #include "tools.h" */
  2235. X/* #include "ed.h" */
  2236. X
  2237. Xdowrite(from, to, fname, apflg)
  2238. Xint    from, to;
  2239. Xchar    *fname;
  2240. Xint    apflg;
  2241. X{
  2242. X    extern FILE    *fopen();
  2243. X    FILE    *fp;
  2244. X    int    lin, err;
  2245. X    int    lines, bytes;
  2246. X    char    *str;
  2247. X
  2248. X    err = 0;
  2249. X
  2250. X    lines = bytes = 0;
  2251. X    if (diag)
  2252. X        printf("\"%s\" ",fname);
  2253. X    
  2254. X    if((fp = fopen(fname,(apflg?"a":"w"))) == NULL)
  2255. X    {
  2256. X        printf("file open error\n");
  2257. X        return( ERR );
  2258. X    }
  2259. X    for(lin = from; lin <= to; lin++)
  2260. X    {
  2261. X        str = gettxt(lin);
  2262. X        lines++;
  2263. X        bytes += strlen(str);
  2264. X        if(fputs(str, fp) == EOF)
  2265. X        {
  2266. X            printf("file write error\n");
  2267. X            err++;
  2268. X            break;
  2269. X        }
  2270. X    }
  2271. X    if (diag)
  2272. X        printf("%d lines %d bytes\n",lines,bytes);
  2273. X
  2274. X    fclose(fp);
  2275. X    return( err );
  2276. X}
  2277. X
  2278. X/*    ed.c    */
  2279. X/*
  2280. X * Copyright 1987 Brian Beattie Rights Reserved.
  2281. X *
  2282. X * Permission to copy and/or distribute granted under the
  2283. X * following conditions:
  2284. X *
  2285. X * 1). No charge may be made other than resonable charges
  2286. X *    for reproduction.
  2287. X *
  2288. X * 2). This notice must remain intact.
  2289. X *
  2290. X * 3). No further restrictions may be added.
  2291. X *
  2292. X */
  2293. X/* #include <stdio.h> */
  2294. X/* #include "tools.h" */
  2295. X/* #include "ed.h" */
  2296. X#include <setjmp.h>
  2297. Xjmp_buf    env;
  2298. X
  2299. XLINE    line0;
  2300. Xint    curln = 0;
  2301. Xint    lastln = 0;
  2302. Xchar    *inptr;
  2303. Xstatic char    inlin[MAXLINE];
  2304. Xint    nflg, lflg, pflg, pflag, prompt;
  2305. Xint    line1, line2, nlines;
  2306. Xextern char    fname[];
  2307. Xint    version = 103;
  2308. Xint    diag=1;
  2309. X
  2310. Xvoid intr()
  2311. X{
  2312. X    printf("?\n");
  2313. X    longjmp(env, 1);
  2314. X}
  2315. X
  2316. Xvoid main(argc,argv)
  2317. Xint    argc;
  2318. Xchar    **argv;
  2319. X{
  2320. X    int    stat, i, doflush;
  2321. X
  2322. X    edsetbuf();
  2323. X    doflush=isatty(1);
  2324. X
  2325. X    if (argc>1 && argv[1][0]=='-' && argv[1][1]==0) {
  2326. X        diag=0;
  2327. X        argc--;
  2328. X        argv++;
  2329. X    }
  2330. X    if(argc > 1)
  2331. X    {
  2332. X        for(i = 1; i < argc; i++)
  2333. X        {
  2334. X            if(doread(0,argv[i])==0) {
  2335. X                curln = 1;
  2336. X                strcpy(fname, argv[i]);
  2337. X                break;
  2338. X            }
  2339. X        }
  2340. X    }
  2341. X    while(1)
  2342. X    {
  2343. X        setjmp(env);
  2344. X        signal(2, intr);
  2345. X
  2346. X        if (prompt)
  2347. X        {
  2348. X            if (nflg) printf("%d",curln);
  2349. X            printf("*");
  2350. X        }
  2351. X
  2352. X        if (doflush) fflush(stdout);
  2353. X
  2354. X        if (fgets(inlin, sizeof(inlin),stdin) == NULL)
  2355. X        {
  2356. X            break;
  2357. X        }
  2358. X/*
  2359. X        if(*inlin == '!')
  2360. X        {
  2361. X            for(inptr = inlin; *inptr != NL; inptr++)
  2362. X                ;
  2363. X            *inptr = EOS;
  2364. X            system(inlin+1);
  2365. X            continue;
  2366. X        }
  2367. X*/
  2368. X        inptr = inlin;
  2369. X        if(getlst() >= 0)
  2370. X            if((stat = ckglob()) != 0)
  2371. X            {
  2372. X                if(stat >= 0 && (stat = doglob()) >= 0)
  2373. X                {
  2374. X                    curln = stat;
  2375. X                    continue;
  2376. X                }
  2377. X            } else {
  2378. X                if((stat = docmd(0)) >= 0)
  2379. X                {
  2380. X                    if(stat == 1)
  2381. X                        doprnt(curln, curln);
  2382. X                    continue;
  2383. X                }
  2384. X            }
  2385. X        if(stat == EOF)
  2386. X        {
  2387. X            exit(0);
  2388. X        }
  2389. X        if(stat == FATAL)
  2390. X        {
  2391. X            fputs("FATAL ERROR\n",stderr);
  2392. X            exit(1);
  2393. X        }
  2394. X        printf("?\n");
  2395. X    }
  2396. X}
  2397. X
  2398. X/*    egets.c    */
  2399. X/* #include <stdio.h> */
  2400. X/* #include "tools.h" */
  2401. X/* #include "ed.h" */
  2402. X
  2403. Xint    truncflg = 1;    /* truncate long line flag */
  2404. Xint    eightbit = 1;    /* save eight bit */
  2405. Xint    nonascii, nullchar, truncated;
  2406. Xegets(str,size,stream)
  2407. Xchar    *str;
  2408. Xint    size;
  2409. XFILE    *stream;
  2410. X{
  2411. X    int    c, count;
  2412. X    char    *cp;
  2413. X
  2414. X    for(count = 0, cp = str; size > count;)
  2415. X    {
  2416. X        c = getc(stream);
  2417. X        if(c == EOF)
  2418. X        {
  2419. X            *cp++ = '\n';
  2420. X            *cp = EOS;
  2421. X            if(count)
  2422. X            {
  2423. X                printf("[Incomplete last line]\n");
  2424. X            }
  2425. X            return(count);
  2426. X        }
  2427. X        if(c == NL)
  2428. X        {
  2429. X            *cp++ = c;
  2430. X            *cp = EOS;
  2431. X            return(++count);
  2432. X        }
  2433. X        if(c > 127)
  2434. X        {
  2435. X            if(!eightbit)        /* if not saving eighth bit */
  2436. X                c = c&127;    /* strip eigth bit */
  2437. X            nonascii++;        /* count it */
  2438. X        }
  2439. X        if(c)
  2440. X        {
  2441. X            *cp++ = c;    /* not null, keep it */
  2442. X            count++;
  2443. X        } else 
  2444. X            nullchar++;    /* count nulls */
  2445. X    }
  2446. X    str[count-1] = EOS;
  2447. X    if(c != NL)
  2448. X    {
  2449. X        printf("truncating line\n");
  2450. X        truncated++;
  2451. X        while((c = getc(stream)) != EOF)
  2452. X            if(c == NL)
  2453. X                break;
  2454. X    }
  2455. X    return(count);
  2456. X}
  2457. X
  2458. X/*    esc.c    */
  2459. X/* #include <stdio.h> */
  2460. X/* #include "tools.h" */
  2461. X
  2462. X/* Map escape sequences into their equivalent symbols.  Returns the
  2463. X * correct ASCII character.  If no escape prefix is present then s
  2464. X * is untouched and *s is returned, otherwise **s is advanced to point
  2465. X * at the escaped character and the translated character is returned.
  2466. X */
  2467. Xesc(s)
  2468. Xchar    **s;
  2469. X{
  2470. X    register int    rval;
  2471. X
  2472. X    
  2473. X    if (**s != ESCAPE)
  2474. X    {
  2475. X        rval = **s;
  2476. X    } else {
  2477. X        (*s)++;
  2478. X
  2479. X        switch(toupper(**s))
  2480. X        {
  2481. X        case '\000':
  2482. X            rval = ESCAPE;    break;
  2483. X        case 'S':
  2484. X            rval = ' ';    break;
  2485. X        case 'N':
  2486. X            rval = '\n';    break;
  2487. X        case 'T':
  2488. X            rval = '\t';    break;
  2489. X        case 'B':
  2490. X            rval = '\b';    break;
  2491. X        case 'R':
  2492. X            rval = '\r';    break;
  2493. X        default:
  2494. X            rval = **s;    break;
  2495. X        }
  2496. X    }
  2497. X
  2498. X    return (rval);
  2499. X}
  2500. X
  2501. X/*    find.c    */
  2502. X/* #include <stdio.h> */
  2503. X/* #include "tools.h" */
  2504. X/* #include "ed.h" */
  2505. X
  2506. Xfind(pat, dir)
  2507. XTOKEN    *pat;
  2508. Xint    dir;
  2509. X{
  2510. X    int    i, num;
  2511. X    char    *lin;
  2512. X
  2513. X    num=curln;
  2514. X    for(i=0; i<lastln; i++)
  2515. X    {
  2516. X        lin = gettxt(num);
  2517. X        if(matchs(lin, pat, 0))
  2518. X        {
  2519. X            return(num);
  2520. X        }
  2521. X        num = (dir ? nextln(num) : prevln(num));
  2522. X    }
  2523. X    return ( ERR );
  2524. X}
  2525. X
  2526. X/*    getfn.c    */
  2527. X/* #include <stdio.h> */
  2528. X/* #include "tools.h" */
  2529. X/* #include "ed.h" */
  2530. X
  2531. Xextern char    fname[MAXFNAME];
  2532. Xint nofname;
  2533. X
  2534. Xchar    *
  2535. Xgetfn()
  2536. X{
  2537. X    static char    file[256];
  2538. X    char    *cp;
  2539. X
  2540. X    if(*inptr == NL)
  2541. X    {
  2542. X        nofname=TRUE;
  2543. X        strcpy(file, fname);
  2544. X    } else {
  2545. X        nofname=FALSE;
  2546. X        while(*inptr == SP || *inptr == HT)
  2547. X            inptr++;
  2548. X
  2549. X        cp = file;
  2550. X        while(*inptr && *inptr != NL && *inptr != SP && *inptr != HT)
  2551. X        {
  2552. X            *cp++ = *inptr++;
  2553. X        }
  2554. X        *cp = '\0';
  2555. X
  2556. X        if(strlen(file) == 0)
  2557. X        {
  2558. X            printf("bad file name\n");
  2559. X            return( NULL );
  2560. X        }
  2561. X    }
  2562. X
  2563. X    if(strlen(file) == 0)
  2564. X    {
  2565. X        printf("no file name\n");
  2566. X        return(NULL);
  2567. X    }
  2568. X    return( file );
  2569. X}
  2570. X
  2571. X/*    getlst.c    */
  2572. X/* #include <stdio.h> */
  2573. X/* #include "tools.h" */
  2574. X/* #include "ed.h" */
  2575. X
  2576. Xgetlst()
  2577. X{
  2578. X    int    num;
  2579. X
  2580. X    line2 = 0;
  2581. X    for(nlines = 0; (num = getone()) >= 0;)
  2582. X    {
  2583. X        line1 = line2;
  2584. X        line2 = num;
  2585. X        nlines++;
  2586. X        if(*inptr != ',' && *inptr != ';')
  2587. X            break;
  2588. X        if(*inptr == ';')
  2589. X            curln = num;
  2590. X        inptr++;
  2591. X    }
  2592. X    nlines = min(nlines, 2);
  2593. X    if(nlines == 0)
  2594. X        line2 = curln;
  2595. X    if(nlines <= 1)
  2596. X        line1 = line2;
  2597. X
  2598. X    if(num == ERR)
  2599. X        return(num);
  2600. X    else
  2601. X        return(nlines);
  2602. X}
  2603. X
  2604. X/*    getnum.c    */
  2605. X/* #include <stdio.h> */
  2606. X/* #include "tools.h" */
  2607. X/* #include "ed.h" */
  2608. X
  2609. Xint mark['z'-'a'+1];
  2610. X
  2611. Xgetnum(first) int first;
  2612. X{
  2613. X    TOKEN    *srchpat;
  2614. X    int    num;
  2615. X    char    c;
  2616. X
  2617. X    while(*inptr == SP || *inptr == HT)
  2618. X        inptr++;
  2619. X
  2620. X    if(*inptr >= '0' && *inptr <= '9')    /* line number */
  2621. X    {
  2622. X        for(num = 0; *inptr >= '0' && *inptr <= '9';)
  2623. X        {
  2624. X            num = (num * 10) + *inptr - '0';
  2625. X            inptr++;
  2626. X        }
  2627. X        return num;
  2628. X    }
  2629. X
  2630. X    switch(c = *inptr)
  2631. X    {
  2632. X    case '.':
  2633. X        inptr++;
  2634. X        return (curln);
  2635. X
  2636. X    case '$':
  2637. X        inptr++;
  2638. X        return (lastln);
  2639. X
  2640. X    case '/':
  2641. X    case '?':
  2642. X        srchpat = optpat();
  2643. X        if(*inptr == c)
  2644. X            inptr++;
  2645. X        return(find(srchpat,c == '/'?1:0));
  2646. X
  2647. X    case '-':
  2648. X    case '+':
  2649. X        return(first ? curln : 1);
  2650. X
  2651. X    case '\'':
  2652. X        inptr++;
  2653. X        if (*inptr < 'a' || *inptr > 'z')
  2654. X            return(EOF);
  2655. X
  2656. X        return mark[ *inptr++ - 'a' ];
  2657. X
  2658. X    default:
  2659. X        return ( first ? EOF : 1 );    /* unknown address */
  2660. X    }
  2661. X}
  2662. X
  2663. X/*    getone.c    */
  2664. X/* #include <stdio.h> */
  2665. X/* #include "tools.h" */
  2666. X/* #include "ed.h" */
  2667. X
  2668. X#define FIRST 1
  2669. X#define NOTFIRST 0
  2670. X
  2671. Xgetone()
  2672. X{
  2673. X    int    c, i, num;
  2674. X
  2675. X    if((num = getnum(FIRST)) >= 0)
  2676. X    {
  2677. X        while(1)
  2678. X        {
  2679. X            while(*inptr == SP || *inptr == HT)
  2680. X                inptr++;
  2681. X
  2682. X            if(*inptr != '+' && *inptr != '-')
  2683. X                break;
  2684. X                        c = *inptr++;
  2685. X
  2686. X            if((i = getnum(NOTFIRST)) < 0)
  2687. X                return ( i );
  2688. X
  2689. X            if(c == '+')
  2690. X            {
  2691. X                num += i;
  2692. X            } else {
  2693. X                num -= i;
  2694. X            }
  2695. X        }
  2696. X    }
  2697. X    return ( num>lastln ? ERR : num );
  2698. X}
  2699. X
  2700. X/*    getpat.c    */
  2701. X/* #include <stdio.h> */
  2702. X/* #include "tools.h" */
  2703. X
  2704. X/* Translate arg into a TOKEN string */
  2705. XTOKEN    *
  2706. Xgetpat (arg)
  2707. Xchar    *arg;
  2708. X{
  2709. X    
  2710. X    return (makepat(arg, '\000'));
  2711. X}
  2712. X
  2713. X/*    getptr.c    */
  2714. X/* #include <stdio.h> */
  2715. X/* #include "tools.h" */
  2716. X/* #include "ed.h" */
  2717. X
  2718. XLINE    *
  2719. Xgetptr(num)
  2720. Xint    num;
  2721. X{
  2722. X    LINE    *ptr;
  2723. X    int    j;
  2724. X
  2725. X    if (2*num>lastln && num<=lastln) {    /* high line numbers */
  2726. X        ptr = line0.l_prev;
  2727. X        for (j = lastln; j>num; j--)
  2728. X            ptr = ptr->l_prev;
  2729. X    } else {                /* low line numbers */
  2730. X        ptr = &line0;
  2731. X        for(j = 0; j < num; j++)
  2732. X            ptr = ptr->l_next;
  2733. X    }
  2734. X    return(ptr);
  2735. X}
  2736. X
  2737. X/*    getrhs.c    */
  2738. X/* #include <stdio.h> */
  2739. X/* #include "tools.h" */
  2740. X/* #include "ed.h" */
  2741. X
  2742. Xgetrhs(sub)
  2743. Xchar    *sub;
  2744. X{
  2745. X    if(inptr[0] == NL || inptr[1] == NL)    /* check for eol */
  2746. X        return( ERR );
  2747. X
  2748. X    if(maksub(sub, MAXPAT) == NULL)
  2749. X        return( ERR );
  2750. X    
  2751. X    inptr++;        /* skip over delimter */
  2752. X    while(*inptr == SP || *inptr == HT)
  2753. X            inptr++;
  2754. X    if(*inptr == 'g')
  2755. X    {
  2756. X        inptr++;
  2757. X        return( 1 );
  2758. X    }
  2759. X    return( 0 );
  2760. X}
  2761. X
  2762. X/*    gettxt.c    */
  2763. X/* #include <stdio.h> */
  2764. X/* #include "tools.h" */
  2765. X/* #include "ed.h" */
  2766. X
  2767. Xchar    *
  2768. Xgettxt(num)
  2769. Xint    num;
  2770. X{
  2771. X    LINE    *lin;
  2772. X    static char    txtbuf[MAXLINE];
  2773. X
  2774. X    lin = getptr(num);
  2775. X    strcpy(txtbuf,lin->l_buff);
  2776. X    strcat(txtbuf,"\n");
  2777. X    return(txtbuf);
  2778. X}
  2779. X
  2780. X/*    ins.c    */
  2781. X/* #include <stdio.h> */
  2782. X/* #include "tools.h" */
  2783. X/* #include "ed.h" */
  2784. X
  2785. Xins(str)
  2786. Xchar    *str;
  2787. X{
  2788. X    char    buf[MAXLINE], *cp;
  2789. X    LINE    *new, *cur, *nxt;
  2790. X
  2791. X    cp = buf;
  2792. X    while(1)
  2793. X    {
  2794. X        if((*cp = *str++) == NL)
  2795. X            *cp = EOS;
  2796. X        if(*cp)
  2797. X        {
  2798. X            cp++;
  2799. X            continue;
  2800. X        }
  2801. X        if((new = (LINE *)malloc(sizeof(LINE)+strlen(buf))) == NULL)
  2802. X            return( ERR );     /* no memory */
  2803. X
  2804. X        new->l_stat=0;
  2805. X        strcpy(new->l_buff,buf);    /* build new line */
  2806. X        cur = getptr(curln);        /* get current line */
  2807. X        nxt = getptr(nextln(curln));    /* get next line */
  2808. X        relink(cur, new, new, nxt);    /* add to linked list */
  2809. X        relink(new, nxt, cur, new);
  2810. X        lastln++;
  2811. X        curln++;
  2812. X
  2813. X        if(*str == EOS)        /* end of line ? */
  2814. X            return( 1 );
  2815. X
  2816. X        cp = buf;
  2817. X    }
  2818. X}
  2819. X
  2820. X/*    join.c    */
  2821. X/* #include <stdio.h> */
  2822. X/* #include "tools.h" */
  2823. X/* #include "ed.h" */
  2824. X
  2825. Xextern int fchanged;
  2826. X
  2827. Xjoin(first, last)
  2828. Xint first, last;
  2829. X{
  2830. X    char buf[MAXLINE];
  2831. X    char *cp=buf, *str;
  2832. X    int num;
  2833. X
  2834. X    if (first<=0 || first>last || last>lastln)
  2835. X        return(ERR);
  2836. X    if (first==last) {
  2837. X        curln=first;
  2838. X        return 0;
  2839. X    }
  2840. X    for (num=first; num<=last; num++) {
  2841. X        str=gettxt(num);
  2842. X
  2843. X        while (*str!=NL && cp<buf+MAXLINE-1) *cp++ = *str++;
  2844. X
  2845. X        if (cp==buf+MAXLINE-1) {
  2846. X            printf("line too long\n");
  2847. X            return(ERR);
  2848. X        }
  2849. X    }
  2850. X    *cp++ = NL;
  2851. X    *cp = EOS;
  2852. X    del(first, last);
  2853. X    curln=first-1;
  2854. X    ins(buf);
  2855. X    fchanged = TRUE;
  2856. X    return 0;
  2857. X}
  2858. X
  2859. X/*    makepat.c    */
  2860. X/* #include <stdio.h> */
  2861. X/* #include "tools.h" */
  2862. X
  2863. X/*
  2864. X * Make a pattern template from the strinng pointed to by arg.  Stop
  2865. X * when delim or '\000' or '\n' is found in arg.  Return a pointer to
  2866. X * the pattern template.
  2867. X *
  2868. X * The pattern template used here are somewhat different than those
  2869. X * used in the "Software Tools" book; each token is a structure of
  2870. X * the form TOKEN (see tools.h).  A token consists of an identifier,
  2871. X * a pointer to a string, a literal character and a pointer to another
  2872. X * token.  This last is 0 if there is no subsequent token.
  2873. X *
  2874. X * The one strangeness here is caused (again) by CLOSURE which has
  2875. X * to be put in front of the previous token.  To make this insertion a
  2876. X * little easier, the 'next' field of the last to point at the chain
  2877. X * (the one pointed to by 'tail) is made to point at the previous node.
  2878. X * When we are finished, tail->next is set to 0.
  2879. X */
  2880. XTOKEN *
  2881. Xmakepat(arg, delim)
  2882. Xchar    *arg;
  2883. Xint    delim;
  2884. X{
  2885. X     TOKEN    *head, *tail, *ntok;
  2886. X     int    error;
  2887. X
  2888. X    /*
  2889. X     * Check for characters that aren't legal at the beginning of
  2890. X     * a template.
  2891. X     */
  2892. X
  2893. X    if (*arg=='\0' || *arg==delim || *arg=='\n' || *arg==CLOSURE)
  2894. X        return(0);
  2895. X
  2896. X    error = 0;
  2897. X    tail = head = NULL;
  2898. X
  2899. X    while (*arg && *arg != delim && *arg != '\n' && !error)
  2900. X    {
  2901. X        ntok = (TOKEN *)malloc(TOKSIZE);
  2902. X        ntok->lchar = '\000';
  2903. X        ntok->next = 0;
  2904. X
  2905. X        switch(*arg)
  2906. X        {
  2907. X        case ANY:
  2908. X            ntok->tok = ANY;
  2909. X            break;
  2910. X
  2911. X        case BOL:
  2912. X            if (head == 0)    /* then this is the first symbol */
  2913. X                ntok->tok = BOL;
  2914. X            else
  2915. X                ntok->tok = LITCHAR;
  2916. X                ntok->lchar = BOL;
  2917. X            break;
  2918. X
  2919. X        case EOL:
  2920. X            if(*(arg+1) == delim || *(arg+1) == '\000' ||
  2921. X                    *(arg+1) == '\n')
  2922. X            {
  2923. X                ntok->tok = EOL;
  2924. X            } else {
  2925. X                ntok->tok = LITCHAR;
  2926. X                ntok->lchar = EOL;
  2927. X            }
  2928. X            break;
  2929. X
  2930. X        case CLOSURE:
  2931. X            if (head != 0)
  2932. X            {
  2933. X                switch (tail->tok)
  2934. X                {
  2935. X                case BOL:
  2936. X                case EOL:
  2937. X                case CLOSURE:
  2938. X                    return (0);
  2939. X                
  2940. X                default:
  2941. X                    ntok->tok = CLOSURE;
  2942. X                }
  2943. X            }
  2944. X            break;
  2945. X
  2946. X        case CCL:
  2947. X
  2948. X            if(*(arg + 1) == NEGATE)
  2949. X            {
  2950. X                ntok->tok = NCCL;
  2951. X                arg += 2;
  2952. X            } else {
  2953. X                ntok->tok = CCL;
  2954. X                arg++;
  2955. X            }
  2956. X
  2957. X            if( ntok->bitmap = makebitmap(CLS_SIZE) )
  2958. X                arg = dodash(CCLEND, arg, ntok->bitmap );
  2959. X            else {
  2960. X                fprintf(stderr,"Not enough memory for pat\n");
  2961. X                error = 1;
  2962. X            }
  2963. X            break;
  2964. X
  2965. X        default:
  2966. X            if (*arg == ESCAPE && *(arg+1) == OPEN) {
  2967. X                ntok->tok = OPEN;
  2968. X                arg++;
  2969. X            } else
  2970. X            if (*arg == ESCAPE && *(arg+1) == CLOSE) {
  2971. X                ntok->tok = CLOSE;
  2972. X                arg++;
  2973. X            } else {
  2974. X                ntok->tok = LITCHAR;
  2975. X                ntok->lchar = esc(&arg);
  2976. X            }
  2977. X        }
  2978. X
  2979. X        if (error || ntok == 0)
  2980. X        {
  2981. X            unmakepat(head);
  2982. X            return (0);
  2983. X        } else if (head == 0)
  2984. X        {
  2985. X                /* This is the first node in the chain. */
  2986. X            
  2987. X            ntok->next = 0;
  2988. X            head = tail = ntok;
  2989. X        } else if (ntok->tok != CLOSURE)
  2990. X        {
  2991. X            /* Insert at end of list (after tail) */
  2992. X
  2993. X            tail->next = ntok;
  2994. X            ntok->next = tail;
  2995. X            tail = ntok;
  2996. X        } else if (head != tail)
  2997. X        {
  2998. X            /*
  2999. X             * More than one node in the chain.  Insert the
  3000. X             * CLOSURE node immediately in front of tail.
  3001. X             */
  3002. X            
  3003. X            (tail->next)->next = ntok;
  3004. X            ntok->next = tail;
  3005. X        } else {
  3006. X            /*
  3007. X             * Only one node in the chain,  Insert the CLOSURE
  3008. X             * node at the head of the linked list.
  3009. X             */
  3010. X            
  3011. X            ntok->next = head;
  3012. X            tail->next = ntok;
  3013. X            head = ntok;
  3014. X        }
  3015. X        arg++;
  3016. X    }
  3017. X
  3018. X    tail->next = 0;
  3019. X    return (head);
  3020. X}
  3021. X
  3022. X/*    maksub.c    */
  3023. X/* #include <stdio.h> */
  3024. X/* #include "tools.h" */
  3025. X/* #include "ed.h" */
  3026. X
  3027. Xchar    *
  3028. Xmaksub(sub, subsz)
  3029. Xchar    *sub;
  3030. Xint    subsz;
  3031. X{
  3032. X    int    size;
  3033. X    char    delim, *cp;
  3034. X
  3035. X    size = 0;
  3036. X    cp = sub;
  3037. X
  3038. X    delim = *inptr++;
  3039. X    for(size = 0; *inptr != delim && *inptr != NL && size < subsz; size++)
  3040. X    {
  3041. X        if(*inptr == '&')
  3042. X        {
  3043. X            *cp++ = DITTO;
  3044. X            inptr++;
  3045. X        } else
  3046. X        if((*cp++ = *inptr++) == ESCAPE)
  3047. X        {
  3048. X            if (size>=subsz) return(NULL);
  3049. X
  3050. X            switch(toupper(*inptr))
  3051. X            {
  3052. X            case NL:
  3053. X                *cp++ = ESCAPE;
  3054. X                break;
  3055. X            case 'S':
  3056. X                *cp++ = SP;
  3057. X                inptr++;
  3058. X                break;
  3059. X            case 'N':
  3060. X                *cp++ = NL;
  3061. X                inptr++;
  3062. X                break;
  3063. X            case 'T':
  3064. X                *cp++ = HT;
  3065. X                inptr++;
  3066. X                break;
  3067. X            case 'B':
  3068. X                *cp++ = BS;
  3069. X                inptr++;
  3070. X                break;
  3071. X            case 'R':
  3072. X                *cp++ = CR;
  3073. X                inptr++;
  3074. X                break;
  3075. X            case '0': {
  3076. X                int i=3;
  3077. X                *cp = 0;
  3078. X                do {
  3079. X                    if (*++inptr<'0' || *inptr >'7')
  3080. X                        break;
  3081. X
  3082. X                    *cp = (*cp<<3) | (*inptr-'0');
  3083. X                } while (--i!=0);
  3084. X                cp++;
  3085. X                } break;
  3086. X            default:
  3087. X                *cp++ = *inptr++;
  3088. X                break;
  3089. X            }
  3090. X        }
  3091. X    }
  3092. X    if(size >= subsz)
  3093. X        return( NULL );
  3094. X
  3095. X    *cp = EOS;
  3096. X    return( sub );
  3097. X}
  3098. X
  3099. X/*    matchs.c    */
  3100. X/* #include <stdio.h> */
  3101. X/* #include "tools.h" */
  3102. X
  3103. X/*
  3104. X * Compares line and pattern.  Line is a character string while pat
  3105. X * is a pattern template made by getpat().
  3106. X * Returns:
  3107. X *    1. A zero if no match was found.
  3108. X *
  3109. X *    2. A pointer to the last character satisfing the match
  3110. X *       if ret_endp is non-zero.
  3111. X *
  3112. X *    3. A pointer to the beginning of the matched string if
  3113. X *       ret_endp is zero.
  3114. X *
  3115. X * e.g.:
  3116. X *
  3117. X *    matchs ("1234567890", getpat("4[0-9]*7), 0);
  3118. X * will return a pointer to the '4', while:
  3119. X *
  3120. X *    matchs ("1234567890", getpat("4[0-9]*7), 1);
  3121. X * will return a pointer to the '7'.
  3122. X */
  3123. Xchar    *
  3124. Xmatchs(line, pat, ret_endp)
  3125. Xchar    *line;
  3126. XTOKEN    *pat;
  3127. Xint    ret_endp;
  3128. X{
  3129. X
  3130. X    char    *rval, *bptr;
  3131. X
  3132. X    bptr = line;
  3133. X
  3134. X    while(*line)
  3135. X    {
  3136. X        if ((rval = amatch(line, pat, bptr)) == 0)
  3137. X        {
  3138. X            line++;
  3139. X        } else {
  3140. X            if(rval > bptr && rval > line)
  3141. X                rval--;    /* point to last char matched */
  3142. X            rval = ret_endp ? rval : line;
  3143. X            break;
  3144. X        }
  3145. X    }
  3146. X    return (rval);
  3147. X}
  3148. X
  3149. X/*    move.c    */
  3150. X/* #include <stdio.h> */
  3151. X/* #include "tools.h" */
  3152. X/* #include "ed.h" */
  3153. X
  3154. Xmove(num)
  3155. Xint    num;
  3156. X{
  3157. X    LINE    *k0, *k1, *k2, *k3;
  3158. X
  3159. X    if(line1 <= 0 || line2 < line1 || line1 <= num && num <= line2)
  3160. X        return( ERR );
  3161. X    k0 = getptr(prevln(line1));
  3162. X    k1 = getptr(line1);
  3163. X    k2 = getptr(line2);
  3164. X    k3 = getptr(nextln(line2));
  3165. X     lastln -= line2-line1+1;
  3166. X
  3167. X    relink(k0, k3, k0, k3);
  3168. X
  3169. X    if (num > line1)
  3170. X        num -= line2-line1+1;
  3171. X
  3172. X    curln = num + (line2 - line1 + 1);
  3173. X
  3174. X    k0 = getptr(num);
  3175. X    k3 = getptr(nextln(num));
  3176. X     lastln += line2-line1+1;
  3177. X
  3178. X    relink(k0, k1, k2, k3);
  3179. X    relink(k2, k3, k0, k1);
  3180. X
  3181. X    return( 1 );
  3182. X}
  3183. X
  3184. Xint transfer(num)
  3185. Xint num;
  3186. X{
  3187. X    int mid, lin, ntrans;
  3188. X
  3189. X    if (line1<=0 || line1>line2)
  3190. X        return(ERR);
  3191. X
  3192. X    mid= num<line2 ? num : line2;
  3193. X
  3194. X    curln=num;
  3195. X    ntrans=0;
  3196. X
  3197. X    for (lin=line1; lin<=mid; lin++) {
  3198. X        ins(gettxt(lin));
  3199. X        ntrans++;
  3200. X    }
  3201. X    lin+=ntrans;
  3202. X    line2+=ntrans;
  3203. X
  3204. X    for ( ; lin<=line2; lin+=2) {
  3205. X        ins(gettxt(lin));
  3206. X        line2++;
  3207. X    }
  3208. X    return(1);
  3209. X}
  3210. X
  3211. X/*    omatch.c    */
  3212. X/* #include <stdio.h> */
  3213. X/* #include "tools.h" */
  3214. X
  3215. X/*
  3216. X * Match one pattern element, pointed at by pat, with the character at
  3217. X * **linp.  Return non-zero on match.  Otherwise, return 0.  *Linp is
  3218. X * advanced to skip over the matched character; it is not advanced on
  3219. X * failure.  The amount of advance is 0 for patterns that match null
  3220. X * strings, 1 otherwise.  "boln" should point at the position that will
  3221. X * match a BOL token.
  3222. X */
  3223. Xomatch(linp, pat, boln)
  3224. Xchar    **linp;
  3225. XTOKEN    *pat;
  3226. Xchar    *boln;
  3227. X{
  3228. X    
  3229. X    register int    advance;
  3230. X
  3231. X    advance = -1;
  3232. X
  3233. X    if (**linp)
  3234. X    {
  3235. X        switch (pat->tok)
  3236. X        {
  3237. X        case LITCHAR:
  3238. X            if (**linp == pat->lchar)
  3239. X                advance = 1;
  3240. X            break;
  3241. X
  3242. X        case BOL:
  3243. X            if (*linp = boln)
  3244. X                advance = 0;
  3245. X            break;
  3246. X
  3247. X        case ANY:
  3248. X            if (**linp != '\n')
  3249. X                advance = 1;
  3250. X            break;
  3251. X
  3252. X        case EOL:
  3253. X            if (**linp == '\n')
  3254. X                advance = 0;
  3255. X            break;
  3256. X
  3257. X        case CCL:
  3258. X            if( testbit( **linp, pat->bitmap))
  3259. X                advance = 1;
  3260. X            break;
  3261. X
  3262. X        case NCCL:
  3263. X            if (!testbit (**linp, pat->bitmap))
  3264. X                advance = 1;
  3265. X            break;
  3266. X        }
  3267. X    }
  3268. X    if (advance >= 0)
  3269. X        *linp += advance;
  3270. X
  3271. X    return (++advance);
  3272. X}
  3273. X
  3274. X/*    optpat.c    */
  3275. X/* #include <stdio.h> */
  3276. X/* #include "tools.h" */
  3277. X/* #include "ed.h" */
  3278. X
  3279. XTOKEN    *oldpat;
  3280. X
  3281. XTOKEN    *
  3282. Xoptpat()
  3283. X{
  3284. X    char    delim, str[MAXPAT], *cp;
  3285. X
  3286. X    delim = *inptr++;
  3287. X    cp = str;
  3288. X    while(*inptr != delim && *inptr != NL)
  3289. X    {
  3290. X        if(*inptr == ESCAPE && inptr[1] != NL)
  3291. X            *cp++ = *inptr++;
  3292. X        *cp++ = *inptr++;
  3293. X    }
  3294. X
  3295. X    *cp = EOS;
  3296. X    if(*str == EOS)
  3297. X        return(oldpat);
  3298. X    if(oldpat)
  3299. X        unmakepat(oldpat);
  3300. X    oldpat=getpat(str);
  3301. X    return(oldpat);
  3302. X}
  3303. X
  3304. X/*    set.c    */
  3305. X/* #include <stdio.h> */
  3306. X/* #include "tools.h" */
  3307. X/* #include "ed.h" */
  3308. X
  3309. Xstruct tbl {
  3310. X    char    *t_str;
  3311. X    int    *t_ptr;
  3312. X    int    t_val;
  3313. X} *t, tbl[] = {
  3314. X    "number",    &nflg,        TRUE,
  3315. X    "nonumber",    &nflg,        FALSE,
  3316. X    "list",        &lflg,        TRUE,
  3317. X    "nolist",    &lflg,        FALSE,
  3318. X    "eightbit",    &eightbit,    TRUE,
  3319. X    "noeightbit",    &eightbit,    FALSE,
  3320. X    "prompt",    &prompt,    TRUE,
  3321. X    "noprompt",    &prompt,    FALSE,
  3322. X    0
  3323. X};
  3324. X
  3325. Xset()
  3326. X{
  3327. X    char    word[16];
  3328. X    int    i;
  3329. X
  3330. X    inptr++;
  3331. X    if(*inptr != 't')
  3332. X    {
  3333. X        if(*inptr != SP && *inptr != HT && *inptr != NL)
  3334. X            return(ERR);
  3335. X    } else
  3336. X        inptr++;
  3337. X
  3338. X    if(*inptr == NL)
  3339. X        return(show("all"));
  3340. X        /* skip white space */
  3341. X    while(*inptr == SP || *inptr == HT)
  3342. X        inptr++;
  3343. X
  3344. X    for(i = 0; *inptr != SP && *inptr != HT && *inptr != NL;)
  3345. X        word[i++] = *inptr++;
  3346. X    word[i] = EOS;
  3347. X    for(t = tbl; t->t_str; t++)
  3348. X    {
  3349. X        if(strcmp(word,t->t_str) == 0)
  3350. X        {
  3351. X            *t->t_ptr = t->t_val;
  3352. X            return(0);
  3353. X        }
  3354. X    }
  3355. X}
  3356. X
  3357. Xshow()
  3358. X{
  3359. X    extern int    version;
  3360. X
  3361. X    printf("ed version %d.%d\n",version/100,version%100);
  3362. X    printf("number %s, ",nflg?"ON":"OFF");
  3363. X    printf("list %s, ",lflg?"ON":"OFF");
  3364. X    printf("prompt %s,\n",prompt?"ON":"OFF");
  3365. X    return(0);
  3366. X}
  3367. X
  3368. X/*    setbuf.c    */
  3369. X/* #include <stdio.h> */
  3370. X/* #include "tools.h" */
  3371. X/* #include "ed.h" */
  3372. X
  3373. Xvoid relink(a, x, y, b)
  3374. XLINE    *a, *x, *y, *b;
  3375. X{
  3376. X    x->l_prev = a;
  3377. X    y->l_next = b;
  3378. X}
  3379. X
  3380. Xvoid clrbuf()
  3381. X{
  3382. X    del(1, lastln);
  3383. X}
  3384. X
  3385. Xvoid edsetbuf()
  3386. X{
  3387. X    relink(&line0, &line0, &line0, &line0);
  3388. X    curln = lastln = 0;
  3389. X}
  3390. X
  3391. X/*    subst.c    */
  3392. X/* #include <stdio.h> */
  3393. X/* #include "tools.h" */
  3394. X/* #include "ed.h" */
  3395. X
  3396. Xsubst(pat, sub, gflg, pflag)
  3397. XTOKEN    *pat;
  3398. Xchar    *sub;
  3399. Xint    gflg, pflag;
  3400. X{
  3401. X    int    lin, chngd, nchngd;
  3402. X    char    *txtptr, *txt;
  3403. X    char    *lastm, *m, *new, buf[MAXLINE];
  3404. X
  3405. X    if(line1 <= 0)
  3406. X        return( ERR );
  3407. X    nchngd = 0;        /* reset count of lines changed */
  3408. X    for(lin = line1; lin <= line2; lin++)
  3409. X    {
  3410. X        txt = txtptr = gettxt(lin);
  3411. X        new = buf;
  3412. X        chngd = 0;
  3413. X        lastm = NULL;
  3414. X        while(*txtptr)
  3415. X        {
  3416. X            if(gflg || !chngd)
  3417. X                m = amatch(txtptr, pat, txt);
  3418. X            else
  3419. X                m = NULL;
  3420. X            if(m != NULL && lastm != m)
  3421. X            {
  3422. X                chngd++;
  3423. X                new = catsub(txtptr, m, sub, new,
  3424. X                        buf+MAXLINE);
  3425. X                lastm = m;
  3426. X            }
  3427. X            if(m == NULL || m == txtptr)
  3428. X            {
  3429. X                *new++ = *txtptr++;
  3430. X            } else {
  3431. X                txtptr = m;
  3432. X            }
  3433. X        }
  3434. X        if(chngd)
  3435. X        {
  3436. X            if(new >= buf+MAXLINE)
  3437. X                return( ERR );
  3438. X            *new++ = EOS;
  3439. X            del(lin,lin);
  3440. X            ins(buf);
  3441. X            nchngd++;
  3442. X            if(pflag)
  3443. X                doprnt(curln, curln);
  3444. X        }
  3445. X    }
  3446. X    if(nchngd == 0 && !gflg)
  3447. X    {
  3448. X        return(ERR);
  3449. X    }
  3450. X    return( nchngd );
  3451. X}
  3452. X
  3453. X#if 0
  3454. X/*    system.c    */
  3455. X#define SHELL    "/bin/sh"
  3456. X
  3457. Xsystem(c)
  3458. Xchar *c; {
  3459. X    int pid, status;
  3460. X    
  3461. X    switch (pid = fork()) {
  3462. X    case -1:
  3463. X        return -1;
  3464. X    case 0:
  3465. X        execl(SHELL, "sh", "-c", c, (char *) 0);
  3466. X        exit(-1);
  3467. X    default:
  3468. X        while (wait(&status) != pid)
  3469. X            ;
  3470. X    }
  3471. X    return status;
  3472. X}
  3473. X#endif
  3474. X
  3475. X/*    unmkpat.c    */
  3476. X/* #include <stdio.h> */
  3477. X/* #include "tools.h" */
  3478. X
  3479. X/* Free up the memory usde for token string */
  3480. Xvoid unmakepat(head)
  3481. XTOKEN    *head;
  3482. X{
  3483. X
  3484. X    register TOKEN    *old_head;
  3485. X
  3486. X    while (head)
  3487. X    {
  3488. X        switch (head->tok)
  3489. X        {
  3490. X        case CCL:
  3491. X        case NCCL:
  3492. X            free(head->bitmap);
  3493. X                /* fall through to default */
  3494. X
  3495. X        default:
  3496. X            old_head = head;
  3497. X            head = head->next;
  3498. X            free (old_head);
  3499. X            break;
  3500. X        }
  3501. X    }
  3502. X}
  3503. X
  3504. Xisatty(fd)
  3505. Xint        fd;
  3506. X{
  3507. X    long IsInteractive();
  3508. X    struct UFB    *ufb;
  3509. X
  3510. X    ufb = chkufb(fd);
  3511. X    if (ufb == NULL)
  3512. X        return(-1);
  3513. X    return(IsInteractive(ufb->ufbfh) != 0);
  3514. X}
  3515. X@
  3516. X
  3517. X
  3518. X1.4
  3519. Xlog
  3520. X@More amiga changes
  3521. X@
  3522. Xtext
  3523. X@d3 2
  3524. Xd36 1
  3525. Xd41 1
  3526. Xa41 1
  3527. X"$Header: Rodime:ricks/ked2/ked2.c,v 1.3 89/09/01 11:02:22 rick Exp Locker: rick $";
  3528. Xd144 1
  3529. Xa144 1
  3530. Xextern    int    unmakepat();
  3531. Xa153 2
  3532. X#define max(a,b)    ((a>b)?a:b)
  3533. X#define min(a,b)    ((a<b)?a:b)
  3534. Xd201 1
  3535. Xa229 1
  3536. X    register i;
  3537. Xd594 1
  3538. Xd614 1
  3539. Xa614 1
  3540. X    int    i, apflg, pflag, gflag;
  3541. Xd1056 1
  3542. Xa1056 1
  3543. Xprntln(str, vflg, lin)
  3544. Xd1093 1
  3545. Xa1093 1
  3546. Xputcntl(c, stream)
  3547. Xd1234 1
  3548. Xa1234 1
  3549. Xintr()
  3550. Xd1240 1
  3551. Xa1240 1
  3552. Xmain(argc,argv)
  3553. Xd1244 1
  3554. Xa1244 1
  3555. X    int    stat, i, j, doflush;
  3556. Xd1246 1
  3557. Xa1246 1
  3558. X    setbuf();
  3559. Xa1809 1
  3560. X     char    buf[CLS_SIZE];
  3561. Xd2297 1
  3562. Xa2297 1
  3563. Xrelink(a, x, y, b)
  3564. Xd2304 1
  3565. Xa2304 1
  3566. Xclrbuf()
  3567. Xd2309 1
  3568. Xa2309 1
  3569. Xint setbuf()
  3570. Xd2404 1
  3571. Xa2404 1
  3572. Xunmakepat(head)
  3573. Xd2428 5
  3574. Xd2434 5
  3575. X@
  3576. X
  3577. X
  3578. X1.3
  3579. Xlog
  3580. X@Amiga changes
  3581. X@
  3582. Xtext
  3583. X@d38 1
  3584. Xa38 1
  3585. X"$Header: Quantum:ricks/ked2/ed.c,v 1.1 89/08/27 17:44:11 rick Exp Locker: rick $";
  3586. Xd1309 1
  3587. Xa1309 1
  3588. X            _cleanup(); exit(0);
  3589. Xd1314 1
  3590. Xa1314 1
  3591. X            _cleanup(); exit(1);
  3592. X@
  3593. X
  3594. X
  3595. X1.2
  3596. Xlog
  3597. X@No changes
  3598. X@
  3599. Xtext
  3600. X@d1280 1
  3601. Xd1289 1
  3602. Xd2308 1
  3603. Xa2308 1
  3604. Xvoid setbuf()
  3605. Xd2376 1
  3606. Xd2396 1
  3607. X@
  3608. X
  3609. X
  3610. X1.1
  3611. Xlog
  3612. X@Initial revision
  3613. X@
  3614. Xtext
  3615. X@d38 1
  3616. Xa38 1
  3617. X"$Header: ed.c,v 1.6 88/05/23 16:47:56 dnix Exp $";
  3618. X@
  3619. SHAR_EOF
  3620. if `test ! -d rcs`
  3621. then
  3622.   mkdir rcs
  3623.   echo "mkdir rcs"
  3624. fi
  3625. echo "extracting rcs/readme"
  3626. sed 's/^X//' << \SHAR_EOF > rcs/readme
  3627. XThe source code for RCS is distrubuted as RCSfiles. This is so that you will
  3628. Xhave the original sources and the current Amiga sources (and intermediate
  3629. Xversions). It also provides a collection of RCSfiles that newcommers to RCS
  3630. Xcan play with to learn what RCS does.
  3631. X
  3632. X
  3633. X                    Ray
  3634. SHAR_EOF
  3635. if `test ! -d rcs/rcs.rcsfiles`
  3636. then
  3637.   mkdir rcs/rcs.rcsfiles
  3638.   echo "mkdir rcs/rcs.rcsfiles"
  3639. fi
  3640. echo "extracting rcs/rcs.rcsfiles/maketime.c,v"
  3641. sed 's/^X//' << \SHAR_EOF > rcs/rcs.rcsfiles/maketime.c,v
  3642. Xhead     1.8;
  3643. Xbranch   1.8.2;
  3644. Xaccess   ;
  3645. Xsymbols  amiga_rcs:1.8.2 cbmvax_source:1.8.1 uunet_june89_dist:1.8;
  3646. Xlocks    ; strict;
  3647. Xcomment  @ * @;
  3648. X
  3649. X
  3650. X1.8
  3651. Xdate     88.11.08.13.54.53;  author narten;  state Exp;
  3652. Xbranches 1.8.1.1 1.8.2.1;
  3653. Xnext     ;
  3654. X
  3655. X1.8.1.1
  3656. Xdate     89.08.11.01.41.52;  author rsbx;  state Exp;
  3657. Xbranches ;
  3658. Xnext     ;
  3659. X
  3660. X1.8.2.1
  3661. Xdate     89.10.13.19.17.37;  author rsbx;  state Exp;
  3662. Xbranches ;
  3663. Xnext     1.8.2.2;
  3664. X
  3665. X1.8.2.2
  3666. Xdate     89.10.15.15.43.22;  author rsbx;  state Exp;
  3667. Xbranches ;
  3668. Xnext     ;
  3669. X
  3670. X
  3671. Xdesc
  3672. X@derive 32-bit time value from TM structure.
  3673. X@
  3674. X
  3675. X
  3676. X
  3677. X1.8
  3678. Xlog
  3679. X@checked in with -k by rsbx at 89.08.10.16.02.32.
  3680. X@
  3681. Xtext
  3682. X@#
  3683. X/*
  3684. X * MAKETIME        derive 32-bit time value from TM structure.
  3685. X *
  3686. X * Usage:
  3687. X *    long t,maketime();
  3688. X *    struct tm *tp;    Pointer to TM structure from <time.h>
  3689. X *            NOTE: this must be extended version!!!
  3690. X *    t = maketime(tp);
  3691. X *
  3692. X * Returns:
  3693. X *    0 if failure; parameter out of range or nonsensical.
  3694. X *    else long time-value.
  3695. X * Notes:
  3696. X *    This code is quasi-public; it may be used freely in like software.
  3697. X *    It is not to be sold, nor used in licensed software without
  3698. X *    permission of the author.
  3699. X *    For everyone's benefit, please report bugs and improvements!
  3700. X *     Copyright 1981 by Ken Harrenstien, SRI International.
  3701. X *    (ARPANET: KLH @@ SRI)
  3702. X */
  3703. X#ifndef lint
  3704. Xstatic char rcsid[]= "$Id: maketime.c,v 1.8 88/11/08 13:54:53 narten Exp $";
  3705. X#endif
  3706. X/* $Log:    maketime.c,v $
  3707. X * Revision 1.8  88/11/08  13:54:53  narten
  3708. X * allow negative timezones (-24h <= x <= 24h)
  3709. X * 
  3710. X * Revision 1.7  88/11/08  12:02:24  narten
  3711. X * changes from  eggert@@sm.unisys.com (Paul Eggert)
  3712. X * 
  3713. X * Revision 1.7  88/08/28  14:47:52  eggert
  3714. X * Allow cc -R.  Remove unportable "#endif XXX"s.
  3715. X * 
  3716. X * Revision 1.6  87/12/18  17:05:58  narten
  3717. X * include rcsparam.h
  3718. X * 
  3719. X * Revision 1.5  87/12/18  11:35:51  narten
  3720. X * maketime.c: fixed USG code - you have tgo call "tzset" in order to have
  3721. X * "timezone" set. ("localtime" calls it, but it's probably better not to 
  3722. X * count on "localtime" having been called.)
  3723. X * 
  3724. X * Revision 1.4  87/10/18  10:26:57  narten
  3725. X * Updating version numbers. Changes relative to 1.0 are actually 
  3726. X * relative to 1.2
  3727. X * 
  3728. X * Revision 1.3  87/09/24  13:58:45  narten
  3729. X * Sources now pass through lint (if you ignore printf/sprintf/fprintf 
  3730. X * warnings)
  3731. X * 
  3732. X * Revision 1.2  87/03/27  14:21:48  jenkins
  3733. X * Port to suns
  3734. X * 
  3735. X * Revision 1.1  84/01/23  14:50:04  kcs
  3736. X * Initial revision
  3737. X * 
  3738. X * Revision 1.2  83/12/05  10:12:56  wft
  3739. X * added cond. compilation for USG Unix; long timezone;
  3740. X * 
  3741. X * Revision 1.1  82/05/06  11:38:00  wft
  3742. X * Initial revision
  3743. X * 
  3744. X */
  3745. X
  3746. X
  3747. X#include "rcsbase.h"
  3748. X#include "time.h"
  3749. X
  3750. Xint daytb[] = {   /* # days in year thus far, indexed by month (0-12!!) */
  3751. X    0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365
  3752. X};
  3753. X
  3754. Xstruct tm *localtime();
  3755. Xlong    time();
  3756. X
  3757. Xlong maketime(atm)
  3758. Xstruct tm *atm;
  3759. X{    register struct tm *tp;
  3760. X    register int i;
  3761. X    int year, yday, mon, day, hour, min, sec, zone, dst, leap;
  3762. X    long tres, curtim;
  3763. X
  3764. X    VOID time(&curtim);
  3765. X    tp = localtime(&curtim);        /* Get breakdowns of current time */
  3766. X    year = tp->tm_year;        /* Use to set up defaults */
  3767. X    mon = tp->tm_mon;
  3768. X    day = tp->tm_mday;
  3769. X
  3770. X
  3771. X#ifdef DEBUG
  3772. Xprintf("first YMD: %d %d %d, T=%ld\n",year,mon,day,tres);
  3773. X#endif
  3774. X    tp = atm;
  3775. X
  3776. X    /* First must find date, using specified year, month, day.
  3777. X     * If one of these is unspecified, it defaults either to the
  3778. X     * current date (if no more global spec was given) or to the
  3779. X     * zero-value for that spec (i.e. a more global spec was seen).
  3780. X     * Start with year... note 32 bits can only handle 135 years.
  3781. X     */
  3782. X    if(tp->tm_year != TMNULL)
  3783. X      {    if((year = tp->tm_year) >= 1900)    /* Allow full yr # */
  3784. X              year -= 1900;            /* by making kosher */
  3785. X        mon = 0;        /* Since year was given, default */
  3786. X        day = 1;        /* for remaining specs is zero */
  3787. X      }
  3788. X    if(year < 70 || 70+134 < year )    /* Check range */
  3789. X        return(0);        /* ERR: year out of range */
  3790. X    leap = year&03 ? 0 : 1;        /* See if leap year */
  3791. X    year -= 70;            /* UNIX time starts at 1970 */
  3792. X
  3793. X    /*
  3794. X     * Find day of year.
  3795. X     * YDAY is used only if it exists and either the month or day-of-month
  3796. X     * is missing.
  3797. X     */
  3798. X    if (tp->tm_yday != TMNULL
  3799. X     && (tp->tm_mon == TMNULL || tp->tm_mday == TMNULL))
  3800. X        yday = tp->tm_yday;
  3801. X    else
  3802. X      {    if(tp->tm_mon  != TMNULL)
  3803. X          {    mon = tp->tm_mon;    /* Month was specified */
  3804. X            day = 1;        /* so set remaining default */
  3805. X          }
  3806. X        if(mon < 0 || 11 < mon) return(0);    /* ERR: bad month */
  3807. X        if(tp->tm_mday != TMNULL) day = tp->tm_mday;
  3808. X        if(day < 1
  3809. X         || (((daytb[mon+1]-daytb[mon]) < day)
  3810. X            && (day!=29 || mon!=1 || !leap) ))
  3811. X                return(0);        /* ERR: bad day */
  3812. X        yday = daytb[mon]    /* Add # of days in months so far */
  3813. X          + ((leap        /* Leap year, and past Feb?  If */
  3814. X              && mon>1)? 1:0)    /* so, add leap day for this year */
  3815. X          + day-1;        /* And finally add # days this mon */
  3816. X
  3817. X                if (tp->tm_yday != TMNULL       /* Confirm that YDAY correct */
  3818. X                 && tp->tm_yday != yday) return(0);     /* ERR: conflict */
  3819. X      }
  3820. X    if(yday < 0 || (leap?366:365) <= yday)
  3821. X        return(0);        /* ERR: bad YDAY or maketime bug */
  3822. X
  3823. X    tres = year*365            /* Get # days of years so far */
  3824. X        + ((year+1)>>2)        /* plus # of leap days since 1970 */
  3825. X        + yday;            /* and finally add # days this year */
  3826. X
  3827. X        if((i = tp->tm_wday) != TMNULL) /* Check WDAY if present */
  3828. X                if(i < 0 || 6 < i       /* Ensure within range */
  3829. X                  || i != (tres+4)%7)   /* Matches? Jan 1,1970 was Thu = 4 */
  3830. X                        return(0);      /* ERR: bad WDAY */
  3831. X
  3832. X#ifdef DEBUG
  3833. Xprintf("YMD: %d %d %d, T=%ld\n",year,mon,day,tres);
  3834. X#endif
  3835. X    /*
  3836. X     * Now determine time.  If not given, default to zeros
  3837. X     * (since time is always the least global spec)
  3838. X     */
  3839. X    tres *= 86400L;            /* Get # seconds (24*60*60) */
  3840. X    hour = min = sec = 0;
  3841. X    if(tp->tm_hour != TMNULL) hour = tp->tm_hour;
  3842. X    if(tp->tm_min  != TMNULL) min  = tp->tm_min;
  3843. X    if(tp->tm_sec  != TMNULL) sec  = tp->tm_sec;
  3844. X    if( min < 0 || 60 <= min
  3845. X     || sec < 0 || 60 <= sec) return(0);    /* ERR: MS out of range */
  3846. X    if(hour < 0 || 24 <= hour)
  3847. X        if(hour != 24 || (min+sec) !=0)    /* Allow 24:00 */
  3848. X            return(0);        /* ERR: H out of range */
  3849. X
  3850. X    /* confirm AM/PM if there */
  3851. X    switch(tp->tm_ampm)
  3852. X      {    case 0: case TMNULL:    /* Ignore these values */
  3853. X            break;
  3854. X        case 1:            /* AM */
  3855. X        case 2:            /* PM */
  3856. X            if(hour > 12) return(0);  /* ERR: hrs 13-23 bad */
  3857. X            if(hour ==12) hour = 0;    /* Modulo 12 */
  3858. X            if(tp->tm_ampm == 2)    /* If PM, then */
  3859. X                hour += 12;    /*   get 24-hour time */
  3860. X            break;
  3861. X        default: return(0);    /* ERR: illegal TM_AMPM value */
  3862. X      }
  3863. X
  3864. X    tres += sec + 60L*(min + 60L*hour);    /* Add in # secs of time */
  3865. X
  3866. X#ifdef DEBUG
  3867. Xprintf("HMS: %d %d %d T=%ld\n",hour,min,sec,tres);
  3868. X#endif
  3869. X    /*
  3870. X     * We now have the GMT date/time and must make final
  3871. X     * adjustment for the specified time zone.  If none is specified,
  3872. X     * the local time-zone is assumed.
  3873. X     */
  3874. X    if((zone = tp->tm_zon) == TMNULL    /* If unspecified */
  3875. X     || (zone == 1))            /* or local-zone requested */
  3876. X        zone = localzone();        /* then set to local zone */
  3877. X    if(zone < -24*60 || 24*60 <= zone)
  3878. X        return(0);            /* ERR: zone out of range */
  3879. X
  3880. X    /* See if must apply Daylight Saving Time shift.
  3881. X     * Note that if DST is specified, validity is not checked.
  3882. X     */
  3883. X    if((dst = tp->tm_isdst) == TMNULL)    /* Must we figure it out? */
  3884. X      {    curtim = tres +localzone()*60L;    /* Yuck.  Get equiv local */
  3885. X        dst = localtime(&curtim)->tm_isdst;     /* time, and ask. */
  3886. X      }
  3887. X    tres += zone*60L -(dst?3600:0);    /* Add in # seconds of zone adj */
  3888. X
  3889. X    return(tres);
  3890. X}
  3891. X
  3892. X
  3893. X/* LOCALZONE        return local timezone in # mins west of GMT
  3894. X *
  3895. X */
  3896. X
  3897. X#if defined(V6) || defined(USG)
  3898. Xextern long timezone;
  3899. X#else
  3900. X#include <sys/types.h>
  3901. X#include <sys/timeb.h>
  3902. X#endif
  3903. X
  3904. Xstatic int lclzon;
  3905. Xlocalzone()
  3906. X{
  3907. X    if (!lclzon) {
  3908. X#if defined(V6) || defined(USG)
  3909. X#ifdef USG
  3910. X    tzset();
  3911. X#endif
  3912. X    lclzon = timezone/60 + 1;
  3913. X#else
  3914. X    struct timeb tb;
  3915. X
  3916. X    ftime(&tb);
  3917. X    lclzon = tb.timezone + 1;
  3918. X
  3919. X#endif
  3920. X    }
  3921. X    return lclzon - 1;
  3922. X}
  3923. X@
  3924. X
  3925. X
  3926. X1.8.2.1
  3927. Xlog
  3928. X@Start of Amiga RCS port branch.
  3929. X@
  3930. Xtext
  3931. X@d23 1
  3932. Xa23 5
  3933. X<<<<<<< maketime.c
  3934. Xstatic char rcsid[]= "$Id: maketime.c,v 1.8.1.1 89/08/11 01:41:52 rsbx Exp Locker: rsbx $";
  3935. X=======
  3936. Xstatic char rcsid[]= "$Id: maketime.c,v 1.2 89/09/17 13:34:45 rick Exp $";
  3937. X>>>>>>> 1.2
  3938. Xa25 11
  3939. X<<<<<<< maketime.c
  3940. X * Revision 1.8.1.1  89/08/11  01:41:52  rsbx
  3941. X * Start of cbmvax RCS source branch.
  3942. X=======
  3943. X * Revision 1.2  89/09/17  13:34:45  rick
  3944. X * Port to AmigaDos done by Rick Schaeffer (ricks@@iscuva.iscs.com)
  3945. X * All changes done with conditional compile (#ifdef AMIGA).  This version
  3946. X * compiles correctly with Lattice C version 5.02 or later.
  3947. X>>>>>>> 1.2
  3948. X * 
  3949. X<<<<<<< maketime.c
  3950. Xa26 3
  3951. X * checked in with -k by rsbx at 89.08.10.16.02.32.
  3952. X * 
  3953. X * Revision 1.8  88/11/08  13:54:53  narten
  3954. Xa34 8
  3955. X=======
  3956. X * Revision 1.3  89/09/16  09:42:31  rick
  3957. X * Modified AMIGA changes to work with Lattice C
  3958. X * 
  3959. X * Revision 1.2  88/09/03  15:08:05  rick
  3960. X * Port to AmigaDos.  All done with conditional compiles
  3961. X * 
  3962. X>>>>>>> 1.2
  3963. Xd89 2
  3964. Xa90 1
  3965. X#ifdef MYDEBUG
  3966. Xa91 1
  3967. X<<<<<<< maketime.c
  3968. Xa92 3
  3969. X=======
  3970. X#endif MYDEBUG
  3971. X>>>>>>> 1.2
  3972. Xa106 3
  3973. X#ifdef AMIGA
  3974. X    if(year < 78 || 78+134 < year ) /* Check range */
  3975. X#else
  3976. Xa107 1
  3977. X#endif
  3978. Xa109 3
  3979. X#ifdef AMIGA
  3980. X    year -= 78;            /* AMIGA time starts at 1978 */
  3981. X#else
  3982. Xa110 1
  3983. X#endif
  3984. Xa116 1
  3985. X
  3986. Xa135 1
  3987. X#ifndef AMIGA            /* Manx's localtime messes up yday */
  3988. Xa137 1
  3989. X#endif
  3990. Xd143 1
  3991. Xa143 1
  3992. X        + ((year+1)>>2)        /* plus # of leap days since 1970 (1980)*/
  3993. Xa147 3
  3994. X#ifdef AMIGA
  3995. X                  || i != (tres+0)%7)   /* Matches? Jan 1,1978 was Sun = 0 */
  3996. X#else
  3997. Xa148 1
  3998. X#endif
  3999. Xd151 1
  4000. Xa151 1
  4001. X#ifdef MYDEBUG
  4002. Xa152 1
  4003. X<<<<<<< maketime.c
  4004. Xa153 3
  4005. X=======
  4006. X#endif MYDEBUG
  4007. X>>>>>>> 1.2
  4008. Xd163 4
  4009. Xa166 4
  4010. X    if( (min < 0) || (60 <= min)
  4011. X     || (sec < 0) || (60 <= sec) ) return(0);    /* ERR: MS out of range */
  4012. X    if((hour < 0) || (24 <= hour))
  4013. X        if((hour != 24) || ((min+sec) !=0))    /* Allow 24:00 */
  4014. Xa169 1
  4015. X#ifndef AMIGA
  4016. Xa181 1
  4017. X#endif
  4018. Xd185 1
  4019. Xa185 1
  4020. X#ifdef MYDEBUG
  4021. Xa186 1
  4022. X<<<<<<< maketime.c
  4023. Xa187 3
  4024. X=======
  4025. X#endif MYDEBUG
  4026. X>>>>>>> 1.2
  4027. Xa192 1
  4028. X#ifndef AMIGA
  4029. Xd207 1
  4030. Xa207 1
  4031. X#endif
  4032. Xa214 1
  4033. X<<<<<<< maketime.c
  4034. Xa216 4
  4035. X=======
  4036. X#ifndef AMIGA
  4037. X#ifdef V6
  4038. X>>>>>>> 1.2
  4039. Xa241 1
  4040. X#endif AMIGA
  4041. X@
  4042. X
  4043. X
  4044. X1.8.2.2
  4045. Xlog
  4046. X@Finished the integration of Rick Schaeffer's RCS Amiga port with the RCS
  4047. Xsources I have here (and are later than the ones Rick used).
  4048. X@
  4049. Xtext
  4050. X@d1 1
  4051. Xd23 5
  4052. Xa27 1
  4053. Xstatic char rcsid[]= "$Id: maketime.c,v 1.8.2.1 89/10/13 19:17:37 rsbx Exp Locker: rsbx $";
  4054. Xd30 1
  4055. Xa30 3
  4056. X * Revision 1.8.2.1  89/10/13  19:17:37  rsbx
  4057. X * Start of Amiga RCS port branch.
  4058. X * 
  4059. Xd33 6
  4060. Xd40 1
  4061. Xd53 8
  4062. Xd106 1
  4063. Xa106 4
  4064. X    int year, yday, mon, day, hour, min, sec, leap;
  4065. X#ifndef AMIGA
  4066. X    int zone, dst;
  4067. X#endif
  4068. Xd117 1
  4069. Xd119 3
  4070. Xd197 1
  4071. Xd199 3
  4072. Xd237 1
  4073. Xd239 3
  4074. Xd270 4
  4075. Xd275 2
  4076. Xa276 1
  4077. X#if defined(V6) || defined(USG)
  4078. X@
  4079. X
  4080. X
  4081. X1.8.1.1
  4082. Xlog
  4083. X@Start of cbmvax RCS source branch.
  4084. X@
  4085. Xtext
  4086. X@a26 3
  4087. X * checked in with -k by rsbx at 89.08.10.16.02.32.
  4088. X * 
  4089. X * Revision 1.8  88/11/08  13:54:53  narten
  4090. X@
  4091. SHAR_EOF
  4092. echo "End of archive 6 (of 14)"
  4093. # if you want to concatenate archives, remove anything after this line
  4094. exit
  4095.